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'fable of contents 

Data rirt^as 

fab lee of- command e and options 

PAUSE f ommand 

DISPLAY command 

AS SIGN CO mma n d 

DEASS}GiM command 

Al_ L.OC ATE c o mma n d 

DEALLOCATE command 

REMOVE command 

INSTALL Command 

NOUNT <; ommand 

DISMOUiMT command 

INITlAi JZE command 

SQUEEZE c ommand 

PORIiA'l command 

MONITDR command 

SPOOL command 

SEND command 

A C CESS ( o mm a n d 

DETACM command 

DATE command 

TIME command 

RESET command 

OPF command 

KILL command 

SUSPEND command 

RESUME command 

BOOT rjiid 1>ST0P commands 

^Jilji-iUTDl' fWN c ommand 
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TSKM2A: 

t 

i TSKM 

; to i 

:• Copy 

i S&H 

J Ha n h 



ilTLE ■fSK.i2A 

ENABL l,C 

DSABL GBL 

CSECT TSKM2A 



2A is the portion of TSKMON that contains the actual code 
mplement each keyboard command that is processed by TSKMON. 



ricjht 1978, 1979, 1980, 1981, 
Computer Systems, Int, 
V i '} 1 e , Tennessee 



1982 



1983, 1984. 



Macro calls 



MCALL 
MCALL 
MCALL 
MCALL 
MCALL 
MCALL 
MCALL 



01 ub. 



CSISPC, . TTDUTR, . SRESET, . CRRG, . ELRG 
READW, . TTYJN, . TTYOUT, . PURGE, . TWAIT 
CSIOEN, . SAVEST, . REOPEN 



GTLIN, . CTJM, . DATE; 



5PFUN 



PRINT, . CLOSE, . LOOKUP 
WRITW, . ENIBR, .EXIT 
SERR, . Hr-RR, . FPROT, . OVAL, 



PVAL 



1 definitions 



GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



TSKM2A 

PLOAD, 

DLCEMT 

CMDRSY 

CMDTIM 

CMDALC 

CMDPAU 

CMDBOT 



CMDHD, CMDOFF, KDOCIN 
CMDFRM, CMDDSN, STLGCN, DATTIM, PRGALL 
ALCDEV, CMDINS, CMDSPN, CMDRSM, CMDYEL 
CMDRST, CMDSND, CMDFMT, CMDDAT 
CMDMNT, CMDMON, CMDDMT, CMDDSP, CMDASN 
CMDDLC, OPRCMD, CMDSPO, CMDKIL, CMDREM 
CMDDET, CMDACC, CMDINI, CMDSQZ 
CMDBin 



Global references 



GLOBL, 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 

GLOBL 



TM*SA1, TM*SA2, TM*SA3, TM*SA4, SKPSPC, SKPDLM 
SWPCHW, SEGCHN, INDTSV, LWINDO, *NOWIN, LSWll 
«SCCA, AF*CCA, AFCF, EM*NUC, PO*SYS, AF*NPW 
AF*DUP, AFiaND, AF*UCL, AF*SET, INSSRC, FORCED 
CFSTOP, CFSTRT, EM«ALC, EM^NFW, EM*SND, EM*DNR 
CFSQE2, TODLNG, SDFHD, AF*TPO, *TRNSP, EM$CSE, WLDNAM 
EMfNAL, AF«PLK, AF*DBG, FIXPRV, EM*LDI, EM*NLN 
PO*MEM, POIiNFW, POSBYP, PO*ALC, CKSYPV, CKACDJ, PRIVSO 
PESO, PFCO, PVNPW, EM$NAD, PO*DBG, PRIVCO, II*PRV, II*NPV 
CLRPRV, EM*F-NI, EM*ITF, INPADR, INPEMT, OPTLST 
CDBUF, CDGET, INGADR, INGEMT, IIBUF, PRVOPT 
CINFLG, *VNOTT, SDNAME, DMYDEV 
CORUSR, LBW, *CTRLO, BERFLG, lOABFL 



LSTHL, LCLUN7, F'. 
MAXALC 

ADSDVU, ADiivJOB, 
NEDCHR, LOUTIR, 
LCDTYP, SDPDAT, 



TIOL, LSTIOL, HANCHN 



AD**SZ, LSTSPL, SOPALC 
LINIR, LINRTS, CLOTIR 
SOFT I M, PO*LOK 
UTRPAD, JSWLOC, ERRLOC, MAXMEM, MAXPRI 
PO$MEM, PO*DET, EM*.DET, PO*SND, EM*MPV, 
USRSTK, HiKINIT, CFSTK, MXJMEM, DFJMEM, L 



P2*WRL 
PARNT 
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. GLOBL SPUBUF, SXDPWl , HXJADR 

. GLOBL TMTOTH, TMTOTL, TMU3RH, TMIOWH, LDHNT 

, GLOBL R. GSIZ< RS. GBL, RS. PVT, R. NAME, RS. CRR, RS. EGR 

, GLOBL EM*UAR, EM*UER, R. GSTS, RSTPRV 

, GLOBL TMSWTH, TMIDLH, TMIDH, TMSWPH, LDCLEN 

GLOBL EM$NPD, EMUIAD, EM*ATF, EM*IAD, EMfNLD 

GLOBL EM*SSY, EM*NID, QHDMSl, QHDMS2, EM*NSF, EM*OLO 

GLOBL GENMON, JS«OFF, LMONHD, AF$MEM, AF*SYA, SMONHD 

GLOBL EM*DAA, EM*DIU, CHKALC, liCHACT, *STSNG 

GLOBL WILDFL, *NOI}\|, *NOWTT, *HITTY 

GLOBL TECO, EDIT, KEO, K52, flSTLG, *DIBOL, AFfSCA 

GLOBL LINBUF, LINNX T, LSTACT, PRGTOP, PRGSIZ 

GLOBL CXTPAG, FS! JOL 

GLOBL LAFSIZ, LFWLIM, L INCUR, NUMON, ILSW2 

GLOBL liDBKMN 

GLOBL $CARUP, DOASGN, UKMNAM, fUKMQN, LSW9 

GLOBL LSUCF, *CCLRN, EM*NUK 

GLOBL KL3CLR, *PRGLK, LSW5, PVON 

GLOBL ALDEMT, TALEhfT 

GLOBL LSTDL, FSTDL, $DETCH, UMSYTP 

GLOBL *DISCN, LPROJ, LPROG, LUNAME 

GLOBL LCPUHI , LCPULO, LCONTM, *CTRLS, *SPLJB 

GLOBL STPFLG, TOT ON, UGPLCH, SPLCHN 

GLOBL S*MSWT, CFBUF, CFEND, CCLSAV, KMNCHN 

GLOBL MINTIM, LSECPT, MAXSEC, *EMTTR, VCSHNB 

GLOBL OKFILE, OKFEND, -SCLTST, UCISPC, MHNSIZ 

GLOBL CASTBR, CASCBR, CASTBW, CASCUP, MHNSMS 

GLOBL CASTRO, CASTWO, CLTOTL, CLSFSP 

GLOBL PHYMEM 

GLOBL LJSW, CTRLTT, NEWJSW, JSTKND, VIMAGE 

GLOBL USTART, GENTOP, BOTDEV, BOTUNI , CSHALC 

GLOBL $CTRLC, LSW2, *IWKMN, CHAIN, UFORM 

GLOBL ifSGQO, $SGQ3, LITIME 

GLOBL MAXASN, *CPABT, INDSTA, INDERR 

GLOBL LNBLKS, CXTBAS, CXTWDS, UHIMEM 

GLOBL ASNTBL, *DILUP, CSHDEV, CSHDVN, LNSBLK 

GLOBL AT*LOG, AT*SIZ, AT*DEV, AT$FIL, AT**SZ, AT^EXT 

GLOBL ASNEND, LSW3, LSW2S, *DUPRN 

GLOBL $FORM, *TAB, LSCCA, *CFSOT, LOFSPC, R50C0M 

GLOBL *PAGE, *SCOPE, *ECHO, *LC, «SETRN, EM*FOE 

GLOBL UCHAN, $FORMO, *CFALL, SCFDCC, $CFCCL 

GLOBL LNPRIM, LNMAP, CW*50H, CONFIG, fSUCF 

GLOBL $DOOFF, NUCHN, LRBFIL, CFIND 

GLOBL C. CSW, C. DEV«, C SBLK, NLINES 

GLOBL CD*NAM, CD«DVU, CD*BAS, CD*JOB, CD**SZ, CD**UB 

GLOBL LTSCMD, LNSPAC, CFNEST, VSWPFL, UCLNAM 

GLOBL ^CFOPN. CFSFND, PBFEND, CFSP, *TTGAG 

GLOBL UFPTRP, SDSFCB, SD*BEL, CFLFL4, *UCLCF 

GLOBL SDFLAG, SD$FLK, SD^WFM, SDFORM, *UCLRN 

GLOBL SDBUF 1 , SDBLK, SPLND, LD^RON, f UCLCM, «UCLCL 

GLOBL LDNAME, LDSIZE, LDFLAG, LDBASE, LDPDEV 

GLOBL LSW8, *SGG1, *SG01A, *SGQ1B, $SGQ1C, ■*SG<32, *SeiIO, ^SSHIO 

GLOBL *DEFER, CFCHAN, SCHAIN, LDDEVX, *SGALL 

GLOBL CFPNT, CFBLK, *QUIET 

GLOBL LSW4, KL4CLR, SDSKIP, SDBU, SD*BAK 

GLOBL *INCOR, «KED, VQUNIB, VINTIO, VQUNIC 

GL.OBL SFFORM, SD*SNG, SFNMBL, NFRESB 
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€ 
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115 
116 
1 1 7 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
16S 
169 
170 
171 



GLOBL SD*HLD. CURPRM.- PRMPNT 

GLOBL LSTPRM, PRMBUF.- PRMEND, CFSPND 

. OLOBL CFHOLD, LOGDVU. LDGBAS 

GLOBL LCOL, *QTSET, *TECO, CD*TOP, LOGCHK 

GLOBL «WILD> ERRSEV, UERSEV, PASLIN, LOGBAS, LOGDVU 

GLOBL LSTPL, SDCB, SDCBND, VQUANO, VQUAN3 

GLOBL VQUANl, VQUN1A> VQUAN2, VHIPCT. VQUANO, VQUAN3 

GLOBL DCTRD, DCCRD, DCTWR. DCCWR, ASNSRC 

GLOBL VCORTM, KMPRMT, MXPRMT 

GLOBL RDB> RDBEND, RT*NAM, RT**S2, CLDEVX, SDDVU 

GLOBL SDCBSZ, LSTSL, LSTATE 

GLOBL TKIVAL, CINDAT, SYSDAT, SYTIMH, SYTIML 

GLOBL BASMAP, LOMAP> HIMAP, JCXPGS 

GLOBL SMRSIZ, SRTSI2, CSHSIZ, TKISEC 

GLOBL TSXLN, TSXSIT, GRTl, TRGRET, LICTXT, SUPCOD, NAMTOP 

GLOBL SYINDX> SYUNIT, NUMDEV, PNAME 

GLOBL OF*DEV, OF^UNT.. OF*FIL, OF*FLG, SYNAME 

GLOBL QF$*SZ, OT$RON.. RESDEV, $TAPE 

GLOBL KMNBAS> ODTBAS> HCTRLD 

GLOBL LSW6, $SNWTT, PF*SYS, PF*IOW, $DEBUG 

GLOBL *INDDF, *INDRN, IN*ACT, IN*CNT, IN*CMD, INDSAV 

GLOBL *PHONE, INVEC> LMXLN> MXVEC, *INIT, *DEAD, *HARD 

GLOBL ITRMTP, LMXPRM> LSW7. CFSTS, CF*IND, CF*QUT 

GLOBL CFABLV, MONVEC> LBSPRI, MAXPRI, MXJPRI, LPRI 

GLOBL LOGCHN, LOGFLG, LOGPTR, LOGBUF, LOGBLK 

GLOBL LF*OPN> LF*WRT, UCLBLK, UCLDAT 

GLOBL CSHHD, UC*NDC, UC$MDC, CVTUC 

GLOBL CMDBUF, PAUMSG, RDCMD, DKSAV, SYSAV, CVTTAB, SEARCH 

GLOBL INVOPT, FKILL, ABRTCF, INDABT, ACRFN, XAREA, FILNAM, NOPRG, FPRINT 

GLOBL PUSHCF, TRMSTR, FILNAM, R50DIR, R50SY, R50IND, R50SAV 

GLOBL INOACT, R50DUP, R50PIP. R50KED, R50K52, R50KEX, R50TSX, R50UCL 

GLOBL BLKO, RDERM.. R50VIR, NOSTRT, OVRCOR 

GLOBL BADSAV, LDNAM, NOPRG> NOCIN, SIZVAL, ASKLNM, BADCMD, KCSIBF 

GLOBL ASDEX, KCSIMS, ASNOVF, GTRD50, R50BUF, R50LD0, MNTDEV, DMTARG 

GLOBL DEADEV> CHKMNT, CHKMTX, INFOMT, NOFLAG, MTDPHD, INVOPT, ILLCMD 

GLOBL R50LD, INVLDN, R50DSK, ACRFIL, BDFNAM, LOGASN, MNTFUL, R50LD7 

GLOBL TBLOVF, SETHD, CSIMS2, CKPRIV, R50N0, AMBOPT, ACRDEC 

GLOBL MAXAVL, PRTDEC, DEVUNT, PNAME, HANIDX, HNBUF 

GLOBL ACROCT, HANBSY, CSIMSl , MISSEQ, NOIND, POPCF 

GLOBL BADPMT, BADPRI, TOTXT, CRLF, HI PR I, STLGHD, LDGCLS, R50L0G 

GLOBL BDLOOP, SPLHLA, LDOPHD, PRTFIX, PRTSPC 

GLOBL DLTXT, OCTFIX, PRTTTP, NATXT, NOTXT, YESTXT, NINTXT 

GLOBL PRTUNM, SYHDl , SYHD2, PRTLN, DETTXT, RNMS 

GLOBL SWPTX, LOCKTX, PRTDC3, KBMSG, DIVIDE, PRTDC2 

GLOBL COLOO, CPUAH, CPUAL, PRTTMV, NOFIL, CMDBUF, CALUCL 

GLOBL NOUDC, DEVHDl , ASNHDl , ASNHD2, SHMTHl , SHMTH2, PRTTMD 

GLOBL CVDVNM, PRTBUF, PRTFNM, NONEMS, NODAT, NOLDMT 

GLOBL SUBARO, EDTFIL, RONTXT, NOTAVL, KBTX, MNFLGS, MNBPC 

GLOBL DELSPC, MNBASE, MNTOP , MONHD, MONAR 1 , NOPMGN, PMBUSY, M0NAR2 

GLOBL NSWPMS, MAXMTX, CURMTX, CHKDLM, SPLHD, AMBOPT, INVOPT 

GLOBL DEVIDL, COAL, ALDEX, COAD, SPACTV, SPWFM, DEVIDL, SPSNG 

GLOBL COAL, ALDEX, ALDBLK, COAD, SPACTV, SPWFM, DEVIDL 

GLOBL SPSNG, SPFUL, SPCF, SPFLK, NOFIL, SPGEMT, NOOPTT 

GLOBL BDLIN, MSGBUF, NUMTBl , MSGEND, NOTON, GAGMSG 

GLOBL YELEM f, LINFRE, DJABMS, DLMSG, INVTIM, DMT ALL 

GLOBL SHTMSG, AUTHFN, SPLACT, DOSTOP, OFFEMT, KILEMT, UPTMMS 

GLOBL TMTOTH, DIVSOR, TMTOTL, PRTPCT 
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172 
173 
174 
175 
176 
177 
178 
179 
180 
IBl 
132 
183 
184 



GLOBL 
GLOBL 
(3L.0BL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



OTHRON 

SIZEliT 

KMNNAM 

SHOHD, 

TSXSMS 

PRTR50 

DETHD, 

AR*PRJ 

AR*DMY 

PRTWRN 

INSTSL 

AF*IOP 

NMSGBF 



, SPLPND 
, ASNOVF 
, CCLNAM 
SUBTXT, 
, USRMMS 
, PRTDAT 
DETARG 
, AR*PRG 
, AR**SZ 
, SLMXLN 
, INSTBN 
, *RNIOP 
, *NOABT 



STPASK, SRTSMS 
INVLDM, CSIMS4 
OTRMNT, CHKDEV 
MNTTXT, SRTTXT, 
JCXSMS, DZTXT, 
PRTTOD, PRTTIM 
RUNMS, NOFRDL, R 
, AR*CON, AR*CNT 
, ARNRPB, *SLON, 
VLDSYS, *LOFCF 
AF*NOW, AF*HIE 
«RNMLK, II*NAM 



, MNTARG, HUPARe, R50TT 
, DMTSUB,CMDCCL 
TOTMMS, UMSSMS, SSRMAP 
OCTPRT, SJEMT, RJEMT 
, INVDEV, ALFN, R50DK 
50M0N, INVDAT, MUL32, COAF 
, AR*CPH, AR*CPL, AR*UNM 
*SLTTY, *SLLET 
, CSHMSG, CCSPRV 
, AF*NOI, $NOINT, II**SZ 
, II*FLG, II*PRV, II*NPV 
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Asspmblit constants 



3 




4 


OOOOIL' 


5 


0000 IS 


6 


000040 


7 


000007 


S 


000011 


9 


000014 


10 


000400 


11 


132500 



tJ- 


:- 


12 


CR 


rz 


15 


BLANK 


;= 


40 


BELL 


::u: 


07 


TAB 


:•= 


11 


FF 


::::: 


14 


BLKWDS 


■..z 


256. 


WLDNAM 


::= 


132500 



LINE FEED 

CARRIAGE RETURN 

ASCII SPACE 

ASCII BELL 

HORIZONTAL TAB 

FORM FEED 

# OF WORDS IN DISK BLOCK 

RAD50 /*/ (WILDCARD) 
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'3 

7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
3<:) 
31 
32 
33 
34 
3r7 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



Macro to cause a fatal error message to be printed. 

. MACRO FERR MSC-' 

MUV R5, -<SP) 

MOV MSG, RD 

CALL FPRINI 

MOV <SP)+, R5 

. HNDM FERR 



Macro to print a fatal error message* clean up 
and then jump to RDCMD. 



. MACRO FABORT 

MOV MSe, R5 

viMP FKILL 

. ENDM FABORT 



MSG 



Macro to print a warn in. q message 

. MACRO FWARN MSC' 

MOV R5, -(SP) 

MOV MSG, R5 

CALL PRTWRN 

MOV (SP)+, R5 

. ENDM FWARN 



Macro to start a standard option table. 

Name •- 1 to 4 character table name. 

NA = Number of arguments per table entry. 

. MACRO TBLDEF NAME, NA 
NAROS =- NA 

. CSECT CMDV2A 
NAME'HD: .WORD 2*NA 

. ENDM TBLDEF 



Macro to enter an option text name and a set of parameters 

into the currently open table. 

STRNt- '■-■ Ascii name 

A, Bj C - Set of option parameters to store in table with name. 



MACRO CMDDEF STRNG, A, B, C 
CSECT NAME2A 





. ASCIZ /STRNO/ 








. CSECT CMDV2A 








. WORD L 




t 




. WORD A 






. .TIF 


GE. <NARGS-2> 


. WORD 


B 


. I.XF 


GE, <NARGS-3> 
. ENDM CMDDEF 


. WORD 


C 



;P0. INTER TO NAME STRING 
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58 ; 

59 i Macro to end a set of tabie entries. 

60 ■> 

61 . MACRO TBLEND 

62 . CSECT CMDV2A 

63 . WORD 

64 . CSECT TSKM2A 

65 . ENDM TBLEND 
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3 








4 








5 


000000 


000000 




6 


000002 


000000 




7 


000004 


073634 




S 


000006 


102700 




9 


000010 






10 


000022 


003344 




11 


000024 


014724 


021145 


12 


000030 


070525 




13 


000032 


000000 




14 








15 








16 








17 


000034 


000 




IS 


000035 


000 




19 
20 
21 


000036 


000 










22 








23 








24 


000040 


OOO 


126 


25 


000042 


000007 




26 


000044 


000000 




27 








28 








29 








30 


0000''i6 


000 


126 


31 


000050 


OOOOltj 




32 


000052 


000000 




33 








34 








35 








36 


000054 


OOf) 


126 


37 


000056 


000016 




38 


000060 


000000 




39 








40 








41 








42 


000062 


000000 


000170 
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. SBTTL Data arvat- 
Dfita areas: 



SQZDEV 

ALC 1 DV 

R50SET 

R50UP; 

REMRDB 

R50ADD 

R50DEL 

R50REM 

lATTRB 



WORD 

WORD 

RAD50 

RAD50 

BLKW 

RAD 50 

RAD50 

RAD50 

WORD 



Byte data 



DMTNLG 
OFFIMWf- 
YELFLG 



. BYTE 
. BYTE 
. BYTE 
. EVEM 







/SET/ 

/UP / 

5 

/ADD/ 

/DELETE/ 

/REM/ 





O 





j Name of device being squeezed 

J Name of 1st device on allocation list 



;FilB ID goes here 



Emt to delete a spool file 

DELEM-f: .BYTE 0,126 

. WORD 7 

. WORD 

Emt to set spool HOLD matlc 

SPHLEM: . BYTE 0, 126 

. WORD 1 5 

. WORD 

Emt to set spool NDHOLD mode 

SPNHEM: . BYTE 0, 126 

. WORD 16 

.WORD ; Address of SDCB 

Time to wait for check spooler activity. 



J Address of SDCB 



TIMSPL: , WORD 



0, 60. *2. 



second timer 
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Tables oP comm 




1 






2 






3 






4 






5 


000066 




6 


000002 




7 


000010 




S 


000016 




9 


000024 




10 


000032 




U 


000040 




12 


000046 




13 


000054 




14 


000062 




15 


000070 




16 


000076 




17 


000104 




IS 


000112 




19 


000120 




20 


000126 




21 


000134 




22 


000142 




23 


000150 




24 


000156 




25 






26 






27 






28 






29 


000066 




30 


000162 




31 


000166 




32 
33 
34 


000172 




35 
36 






37 


000066 




38 


000176 




39 


000202 




40 


000206 




41 


000212 




42 


000216 




43 






44 






45 






46 






47 


000066 




4S 


000222 




49 


000226 




50 


000232 




51 






52 






53 






54 






55 


000066 




56 


000236 




57 


000242 



Monday 2i-Dec-87 12: 53 



jge 



, SBTTL Tables of commands and options 



Define option switches for the INSTALL ADD command 

TBLDEF INS, 2 

CHDDEF BYPASN, INSATF?, AF*BYA 

CMDDEF DUP, INSATR, AF^DUP 

CMDDEF DEB*U0> INSATR, AFtDBG 

CMDDEF HI#GH, INSATR, AF*HIE 

CMDDEF IND, INSATR, AF*IND 

CMDDEF 1 0#MAP , I NSATR > AF$ I OP 

CMDDEF IO*PAGE, I NSATR, AF* I OP 

CMDDEF LOCK, INSATR, AF*PLK 

CMDDEF MEM-s-LOCK. INSATR, AF$MEM 

CMDDEF NON I INTERACTIVE, INSATR, AF*NO I 

CMDDEF NOWA*rr, INSAl R, AF*NOW 

CMDDEF NOWI-^NDOW, INSATR, AF*NPW 

CMDDEF PRIV«ILEGED, PRVOPT, O 

CMDDEF SC«CA, INSATR, AF$CCA 

CMDDEF SETUP, INSATR, AF*SET 

CMDDEF SING«LECHAR, INSATR, AFIiSCA 

CMDDEF T«RANSPARENT, INSATR, AF*TPO 

CMDDEF TSXUCL, INSATR, AF*UCL 

TBLEND 



Define option switches for the MOUNT command 

TBLDEF MTOP, 1 

CMDDEF WR-H-ITF, 

CMDDEF NOW*RITE, 1 
TBLEND 



Define option switches for the DISMOUNT command 

TBLDEF DMTQ, 1 

CMDDEF LOG, DMTLGQ 

CMDDEF NOLOG, DMiNLO 

CMDDEF WARN, DMTLGO 

CMDDEF NOWARN, DMTNLO 
TBLEND 



Define option switches for DETACH command 

TBLDEF DET, 1 

CMDDEF CH«ECK, DETCHK 

CMDDEF KI#LL, DETKJL 
TBLEND 



Options for the MONITOR command. 

TBLDEF MON, 1 

CMDDEF IO-«WAIT, PFtaoy 

CMDDEF SY-K-STEM, PFt'SYS 



I 
I 
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Tables of commands and uptions 

58 000S46 TBI.END 

59 

60 J 

61 i Options for the OFF <BYE, KJOB, LOGOFF) command&. 

62 ■> 

63 000066 TBLDEF OFF, 1 

64 000252 CHDDEF N#OWARN, OFFNWN 

65 000256 TDLEND 
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1 

n 

3 

4 

5 

6 

7 

8 

9 

iO 

11 

12 

13 

14 

15 

16 

17 

IS 



000066 
000262 
000266 
000272 
000276 
000302 
000306 
000312 
000316 
000322 
000326 
000332 
000336 



Define options for the SPOOL command 

Entry 1 = Option name 

Entry 2 = Processing routine 

TBLDEF SPL, 1 

CMDDEF A*LIGN, SPLALN 

CMDDEF B-»ACKUP, SPLBAK 

CMDDEF D-K-ELETE, SPLDEL 

CMDDEF F-^ORM, SPLFRM 

CMDDEF H-KOLD, SPLHLD 

CMDDEF NOH-«-OLD, SPLMHL 

CMDDEF L#OCK, SPLLK 

CMDDEF M*ULT I PLE, BPLMUL 

CMDDEF SK-«-IP, SPLSKP 

CMDDEF SI-K-NGLE, SPLSWG 

CMDDEF STRATUS, SPISTA 
TBLEND 
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I 

€ 
€ 



:l 

n 

*:■- 

3 

4 

5 

6 

7 

a 000066 

9 000074 
10 000076 
11 
12 
13 
.1.4 

15 000102 

16 000110 

17 000112 
IS 

19 
20 

21 000120 

22 000126 

23 000130 
24 

25 
26 

27 000136 

28 000144 

29 000150 

30 000154 
31 

32 
33 

34 000156 

35 000164 

36 000170 

37 000174 

38 000200 
39 

40 
41 
42 
43 

44 000204 

45 000210 

46 000212 

47 000214 

48 000220 

49 000222 

50 000224 

51 000230 



SBTTL. PAUSE command 



016767 
001441 
004767 



032761 
001003 
052761 



032761 
001403 



120027 
001373 



012761 
016700 
004767 
005067 
000167 



THE PAUSE COMMAND IS USED TO SUSPEND EXECUTION TEMPORARILY 
WHILE PROCESSING A COMMAND FILE. 

WHEN THE PAUSE COMMAND IS FOUND EXECUTION IS SUSPENDED UNTIL 
THE USER ENTERS A CARRIAGE RETURN FROM THE KEYBOARD. 



0000000 OOOOOOG CMDPAU: MOV 

BEO 



OOOOOOG 



CALL 



CFPNT, CFSPND 

9* 

CFSTOP 



.: SUSPEND COMMAND FILE 

;BR IF COMMAND FILE NOT RUNNING 

i Suspend file 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 3$: 



Set command-file-abort flag so that command file execution will 
be aborted if control-C is typed in response to the pause. 

BIT #*SCCA, LSW5<R1) ils control-C abort override in effect? 
BNE 3* jBr if yes — Don't abort on control-C 

BIS #*CFABT.LSW6<R1); Abort command files if ctrl-C typed 

If TTY QUIET is set, print pause message for operator 

BIT #*QUIET, LSW4<Rl)i IS QUIET SET ON? 

BEG 2* i BR IF NOT 

.PRINT #CMDBUF ; DISPLAY THE PAUSE COMMAND 

Print pause message and wait for response 



2*: 
1*: 



0000 1; 



. PRINT ttPAUMSG 

TTY IN 

CMPB RO, #LF 

BNE 1* 

Restart the command file 



J PRINT PAUSE MESSAGE 

; ACCEPT A LINE OF INPUT 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



9$: 



BIC 

MOV 

CALL 

CLR 

JMP 



#*CFABT> LSW6<R1 )i Clear command-file abort flag 

CFSPND, RO i RESTART COMMAND FILE 

CFSTRT 

CFSPND 

RDCMD 



SBTTL DISPLAY command 



Display a line from within a command file. 



000040 



000040 



124327 
001771' 
005203 

122327 
001401 
00530ri 



000167 OOOOOOG 



CMDDSP: CMPB 
BEQ 
INC 
CMPB 
BE« 
DEC 

1$: . PRINT 



-(R3),#' 

CMDDSP 

R3 

(R3)+, #' 

1* 

R3 

R3 

RDCMD 



i BACKUP OVER LEADING SPACES 

POINT TO FIRST SEPARATOR 

IS IT A SPACE? 

BR IF YES <SKIP IT) 

POINT TO 1ST SEPARATOR 

PRINT THE ARGUMENT OF THE DISPLAY COMMAND 



c 



i 
I 
c 

€ 

€ 
I 

i 

i 

4 
( 
i 

i 
i 



TSKM2A 



1 
,., 

3 
4 
5 

7 

8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
2<:) 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
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SBTTL ASSIGN command 



000234 
000240 
000244 
000252 
000254 
000256 
000260 
000262 
000264 
000270 
000272 
000276 



000300 
000304 
000306 
000312 
000314 
000316 
000320 
000324 
000326 
000332 
000334 
000336 
000342 
000344 
000346 
000352 



000354 
000360 
000362 
000364 
000370 
000372 
000374 
000376 
000400 
000404 
000410 
000414 



004767 
105067 
126227 
001001 
105042 
01 0201 
020103 
101002 
000167 
114100 
004767 
001370 



i 20027 
001414 
120027 

ooioi;* 

020103 
101407 
124127 
001773 
121127 
001401 
005201 
112711 
010100 
160300 
020027 
003021 



112722 
105022 
010204 
062704 
020201 
001402 
1 1 4244 
000774 
1 1 2722 
112712 
105267 
000403 



PROCESS THE 'ASSIGN' COMMAND. 

SEE IF FULL FILE ID IS SPECIFIED OR JUST DEVICE NAME. 



OOOOOOG 
OOOOOOG 
1 77777 000072 



OOOOOOG 
000320 

000072 
000040 

000040 
000072 

000075 

000003 



00007J 



ooooo;; 



000072 
000101 
OOOOOOG 



5$: 
1*: 



2$; 



CMDASN: CALL 
CLRB 
CMPB 
BNE 
CLRB 
MOV 
CMP 
BHI 
JMP 
MOVE 
CALL 
BNE 
WE SCANNED 
IN COMMAND, 
CMPB 
BEQ 
CMPB 
BNE 
CMP 
BIOS 
CMPB 
BFQ 
CMPB 
BEO 
INC 
MOVE 
MOV 
SUB 
CMP 
BGT 



CVTTAB 
ASKLNM 
-1(R2),#': 
5* 

- ( R2 ) 
R2, Rl 
Rl- R3 
2* 

BADCMD 
"(R1),R0 
ASDELM 
1* 
BACK TO A DELIMITER 



CONVERT TAB AND FF CHARS TO SPACES 
SET FLAG FOR LONG ASSIGN 
DOES LOGICAL NAME HAVE COLON? 
BR IF NOT 
CLEAR IT FOR NOW 
POINT TO NULL AT END OF LINE 
SCAN BACK TOWARDS FRONT 
BRANCH IF MORE TO DO 
MUST HIT SOME DELIM 
GET NEXT CHAR BACK 
IS IT A DELIMITER? 
IF NOT KEEP SCANNING 
• SEE WHERE IT IS 



6*: 



3$: 
4*: 



RO, #': 

3* 

RO, #' 

4« 

R1,R3 

3* 

- ( R 1 ) , # ' 

6* 

\ R 1 ) , # ' ; 

3* 

Rl 

#'=> (Rl) 

R1,R0 

R3> RO 

RO, #3 

ASF ID 



i REPLACE ': ' AND ' ' WITH '=' 



HAVE WE REACHED FRONT OF COMMAND LINE? 

BR IF YES 

SKIP OVER ALL CONSECUTIVE BLANKS 

i ALLOW "ASSIGN DXl: DK" CONSTRUCT 

i POINT TO 1ST BLANK CHARACTER 

HOW MANY CHARS IN NAME TO 
LEFT OF DELIMITER? 
DEVICE NAME <= 3 CHARS 
LONGER==>FULL FILE NAME. 



SIMPLE ASSIGN OF PHYSICAL TO LOGICAL DEVICE. 
REFORMAT COMMAND TO 'DEV: A-DEV: ' SO CSISPC CAN 
HANDLE IT. 



ASSMPL: 



1*: 



2*: 



MOVB 

CLRB 

MOV 

ADD 

CMP 

BEO 

MOVB 

BR 

MOVB 

MOVB 

INCB 

BR 



#': , (R2> + 
(R2) + 
R2, R4 
#2, R4 
R2> R 1 
2* 

-(R2) 
1* 

#': , <R2)-i 
#'A, <R2) 
ASKLNM 
ASCIS 



(R4) 



PUT COLON AT END OF 2ND NAME 
NULL TO TERMINATE STRING 
MAKE ROOM AT END OF 1ST NAME 
BY SLIDING CHARS OVER 2 PLACES 
WORK BACK DOWN TO '==' 
BRANCH AFTER '=' MOVED 
SLIDE OVER TO RIGHT 

.;PUT COLON AFTER 1ST DEVICE NAME 
.1 PUT IN DUMMY FILE NAME 'A'. 
i REMEMBER TO KILL FILE NAME LATER 
; GO DO . CSISPC 



57 000416 



000072 



REQUEST ASSIGNMENT OF LOGICAL DEVICE TO NAMED FILE. 
ASFID: MOVB #':, <R2)+ i PUT COLON AT END OF LOGICAL NAME 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 

7!^ 

T T 
/ / 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

SS 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 



000422 



000442 
000444 

000446 
000452 
000454 
000460 



000466 
000472 
000476 
000500 
000506 
000512 
000514 

000520 
000524 
000530 

000532 
000534 
000540 

000542 



000552 
000560 
000566 
000572 
000576 
000602 
000606 
000612 



105012 



000424 0l060ri 
000426 



010506 
103010 

113705 OOOOOOG 

00630i> 

016504 OOOOOOG 



016700 
004767 
103403 
016267 
105767 
00 1 402 
005067 

016700 
004767 
103010 

005000 
004767 
103004 



016762 
012700 
012362 
012362 
012362 
011362 
000167 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

000002G 

000036G 
OOOOOOG 



OOOOOOG 



CLRB (R2) ; NULL TO END STRING 

CALL CSI IN SPECIAL MODE TO PARSE ASSIGN COMMAND. 

ASCIS: MOV SP, R5 ; SAVE STACK POINTER 

. CSISPC #KCSIBF, #ABDEX> R3 

MOV R5, SP .1 RESET TOP OF STACK 

J3CC ASCSOK J BRANCH IF . CSISPC OK 

i ERROR OCCURED ON . CSISPC 



CSIERR: MOVB @#ERRLOC, R5 

ASL R5 

MOV KCSIMS(R5),R4 

FABORT R4 



GET ERROR CODE 
CONVERT TO WORD INDEX 
GET ADDR OF ERROR MESSAGE 
PRINT ERROR MESSAGE 



Move the assign information into the assign table. 
The physical device (and possibly file name) 
description is in KCSIBF in the area for chan #0. 
The logical device block is in the space for chan #3. 

If "physical" device namt- used in assign statement is actually 

a logical name (previously assigned), convert it to the corresponding 

physical device name. 



OOOOOOG 



ASCSOK: 



3-^; 



MOV 

CALL 

BCS 

MOV 

TSTB 



KCSIBF, RO 

ASNSRC 

3* 

AT*DEV(R2) 

ASKLNM 

1* 

<KCSIBF+2.> 



BE(3 

CLR 
.; Clear any 
1*: MOV' 

CALL 

BCC 
> Search for 

CLR 

CALL 

BCC 
i ASSIGN TABLE IS FULL 

FABORT #ASNOVF 



; GET PHYSICAL DEVICE NAME FOR ASSIGN 
i SEE IF IT IS ACTUALLY A LOGICAL DEV NAME 
; BR IF NOT 
KCSIBFi REPLACE LOGICAL NAME WITH REAL PHYSICAL NAME 
; MUST WE KILL FILE NAME? 
; BRANCH IF NOT 
i KILL THE NAME 



previous assign with this logical name. 



KCSIBF+30 

ASNSRC 

2* 

free 

RO 



, RO ; GET LOGICAL DEVICE NAME 

i SEE IF NAME IS ALREADY ASSIGNED 
;BR IF ASSIGN ALREADY EXISTS (REUSE THIS ENTRY 
assign block. 

J SEARCH FOR FREE ASSIGN BLOCK 



ASNSRC 
2* 



i BR IF FOUND ONE 



FOUND A FREE SLOT (POINTED TO BY R2) MOVE ASSIGN 
INFO INTO BLOCK. 



000036G OOOOOOG 2$: MOV 

0000 lOG OOOOOOG MOV 

OOOOOOG MOV 

OOOOOOG MOV 

OOOOOOG MOV 

000002G MOV 

OOOOOOG MOV 

OOOOOOG JMP 



KCSIBF+30. ,AT*L0G(R2)i MOVE IN LOGICAL DEVICE NAME 

KCSIBF+S. , AT*3IZ(R2); MOVE IN FILE LENGTH 

#KCSIBF, R3 

(R3)+, AT*DEV(R2)i MOVE IN REAL DEVICE NAME 

(R3)+, AT1iFIL(R2); MOVE IN FILE NAME 

(R3)+, AT*FIL+2(R2) 

(R3>, AT*EXT(R2) i MOVE IN FILE EXTENSION 

RDCMD 



I 
I 
i 

i 
i 

I 

i 

€ 

( 

4 

i 

I 
( 
4 
I 
I 
I 
4 
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I 

€ 
4 



1 

^"> 

3 

4 

5 

6 

7 000616 120027 000075 

a 000622 001405 

9 000624 120027 000072 

10 000630 001402 

11 000632 120027 000040 

12 000636 000207 



ASDELM IS CALLED TO CHECK IF THE CHARACTER IN RO 
IS (JNE OF THE CHARACTERS ': ^ '=', OR ' ' . 
ON RETURN THE CONDITION CODE IS SET FDR BEQ/BNE. 
ALL REGISTERS ARE PRESERVED. 



i CHECK EQUAL SIGN 
; CHECK COLON 



ASDELM: 


CMPB 


RO, #' 




BEQ 


1* 




CMPB 


RO, #' 




BEQ 


1* 




CMPB 


RO, # ' 


J*: 


RETURN 





i CHECK SPACE 
; RE1URN WITH CC SET. 



I 
« 

f 
I 
i 
« 

I 

4 
I 
i 

4 
4 
I 
I 
i 
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I 

c 

€ 



1 

2 








3 
4 








5 


000640 


004767 


ooooooe 


6 


000644 


105713 




7 


000646 


001010 




a 








9 








10 








11 








12 


000650 


012702 


OOOOOOG 


13 


000654 


005022 




14 


000656 


020227 


OOOOOOG 


15 


000662 


103774 




16 


000664 


000167 


OOOOOOG 


17 








18 








19 








20 


000670 


004767 


OOOOOOG 


21 


000674 


016700 


OOOOOOG 


22 


000700 


012702 


OOOOOOG 


23 


000704 


020062 


OOOOOOG 


24 


000710 


00 1 004 




25 


000712 


005062 


OOOOOOG 


26 


000716 


005062 


OOOOOOG 


27 


000722 


062702 


OOOOOOG 


28 


000726 


020227 


OOOOOOG 


29 


000732 


103764 




30 


000734 


000753 





SBTTL DEASSJGN command 



PROCESS THE DEASSIGN COMMAND 



CMDDSN: 



CALL 
TSTB 
BNE 



CVTTAB 

(R3) 

DEASl 



CONVERT TAB AND FF TO SPACES 
DEASSIGN ALL OR ONE? 
BR TO DEASSIGN ONE NAME 



REQUEST TO DEASSIGN ALL LOGICAL NAMES 
< SIMPLY ZERO THE ASSIGN TABLE) 



MOV #ASNTBL, R2 

1«: CLR (R2)+ 

CMP R2, ttASNEND 

BLO 1* 

DAJMP: JMP RDCMD 



; POINT TO START OF TABLE 

i DONE ALL? 
J BR IF NOT 



REQUEST TO DEASSIGN A PARTICULAR LOGICAL DEVICE NAME 



DEASl: 



i*: 



2f : 



CALL 


GTRD50 


MOV 


R50BUF, RO 


MOV 


#ASN TBL, R2 


CMP 


RO, AT$LO0<R2) 


BNE 


2* 


CLR 


AT*L0G<R2) 


CLR 


AT*DEV<R2) 


ADD 


#AT$*SZ, R2 


CMP 


R2, #ASNEND 


BLO 


1* 


BR 


DAJMP 



ACCRUE THE DEVICE NAME 

PICK UP DEVICE NAME 

POINT TO START OF ASSIGN TABLE 

IS THIS ENTRY FOR THE DEVICE? 

BR IF NOT 

DEASSIGN THE LOGICAL NAME 

CLEAR PHYSICAL DEVICE NAME ALSO 

POINT TO NEXT ASSIGN TABLE ENTRY 

REACHED END OF TABLE? 

BR IF MORE TO DO 



€ 

I 
< 
I 
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. SBTTL ALLOCAIL cotmnaud 



cC 








3 








4 








5 








6 








7 


000736 






8 








9 








10 








11 


000736 


005067 


1 77040 


12 


000742 


004767 


OOOOOOG 


13 


000746 


004767 


OOOOOOG 


14 


000752 


105713 




15 


000754 


001002 




16 


000756 


000167 


ooooooe 


17 








IS 








19 








20 


000762 


032767 


OOOOOOG 


21 


000770 


001004 




22 


000772 






23 








24 








25 








26 


001002 


004767 


OOOOOOG 


27 








28 








29 








30 


001006 


004767 


OOOOOOG 


31 


001012 


122527 


000072 


32 


001016 


001401 




33 


001020 


005303 




34 


001022 


010346 




35 


001024 


004767 


OOOOOOG 


36 


001030 


012603 




37 


001032 


103435 




38 


001034 


016702 


OOOOOOG 


39 


001040 


010267 


OOOOOOG 


40 








41 








42 








43 


001044 


005767 


1 76732 


44 


001050 


001002 




45 


001052 


010267 


176724 


46 








47 








48 








49 


001056 


012700 


OOOOOOG 


50 


001062 


104375 




51 


001064 


103051 




52 


001066 


010005 




53 








54 








55 








56 


001070 


1 1 3702 


OOOOOOG 


57 


001074 


120227 


000001 



OOOOOOG 1*: 



Allocate a device for exclusive access by this job. 
The form of this command is: 

ALLOCATE devC:3>... 1 09 i cal„jTame 

CMDALC: 

If no devices were specified, treat this like a SHOW ALLOCATE command 

Say no allocat device seen yet 

Convert tab and FF chars to spaces 

Skip over spaces 

Any devices specified? 

Br if yes 

Do SHOW ALLOCATE command 

See if we are authorized to allocate devices 

BIT #PO*ALC, PRIVCO ; Are we authorized to allocate devices? 

BNE 10* i Br if yes 

F-ABORT #EM$ALC ; Not authorized for ALLOCATE 

Betjin loop to get the name of each device to be allocated 



CLR 


ALCIDV 


CALL 


CVTTAB 


CALL 


SKPSPC 


TSTB 


<R3) 


BNE 


1* 


JMP 


SOPALC 



10*: CALL SKPSPC 

Accrue the next device namp 



6*: 



CALL 


GTRD50 


CMPB 


<R3)+, #': 


BEQ 


6* 


DEC 


R3 


MOV 


R3, -<SP) 


CALL 


SKPDLM 


MOV 


<SP)+, R3 


BCB 


41* 


MOV 


R50BUF, R2 


MOV 


R2, ALCDEV 



Save the first device name 



TST 


ALCIDV 


BNE 


2* 


MOV 


R2. ALCIDV 



iSkip over any spaces 



Accrue the device name 

Was a colon specified with the device name? 

Br if yes 

Backup pointer 

Save command pointer 

Skip legal delimiters (blank<5>* comma# EOL) 

Restore command pointer 

Invalid character following name 

Get the name of the device 

Set name of device being allocated 



j Have u>e seen the first device yet?" 

; Br if yes 

; Save the name of the 1st device 



Do the allocation for this device 



?*: 



MOV 
EMT 
BCC 
MOV 



#ALDEMT, RO 

375 

3* 

RO, R5 



.: Point to EMT arg block to do the allocation 

i Try to allocate the device 

J Br if allocation was successful 

J Save returned error value 



An error occurred on tht^ allocation. Print error message. 



MDVB @#ERRLOC, R2 
CMPB R2, #1 



Get allocation error code 

Device already allocated by someone else? 



I 
f 
( 

4 
C 
< 
I 
f 

i 

i 

€ 

i 

I 

4 

I 

( 

i 

I 

I 

I 



4 



TBKM2A - 
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AIJ OCATt 


-; comman 


d 




58 


001100 


00 1 007 




59 


001102 






60 


001116 


000427 




61 


001120 


120227 


000002 


62 


001124 


001004 




63 


001126 






64 


001136 


120227 


000003 


65 


001142 


00 1 004 




66 


001144 






67 


001154 


120227 


000004 


68 


001160 


001013 




69 


001162 






70 


001176 


004767 


0000000 


71 


001202 






72 








73 








74 








75 


001210 


004767 


ooooooe 


76 


001214 


122327 


000054 


77 


001220 


00 1 670 




7B 








79 








80 








81 








82 


001222 


105743 




S3 


001224 


001410 




84 


001226 


004767 


0000000 


85 


001232 


016705 


0000000 


86 


001236 


016700 


176540 


87 


001242 


004767 


0000000 


as 








89 








90 








91 


001246 


000167 


OOOOOOG 
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BNE 


4* 


f 




FERR 


#EM$DAA 


i 




BR 


7* 




4*: 


CMPB 


R2, #2 






BNE 


5* 




41*: 


FABORT 


#EM$IAD 




5*: 


CMPB 


R2, #3 






BNE 


a* 






FABORT 


#EM*A7F 




B*: 


CMPB 


R2, #4 






BNE 


3* 






FERR 


#EM*DIU 




7^: 


CALL 


PRTDEC 






. PRINT 


#CRLF 





Br if not 

Device allocated by another job 

Invalid device being allocated? 

Br if not 

Invalid device for allocation 

Allocation table full? 

Br if not 

Allocation table full 

Device in use by another user? 

Br if not 

Device is in use by another user 

Print the number of the job that has the dev 

End of line 



CALL 


SKPSPC 


CMPB 


<R3)+, #', 


BEG 


10* 



i See if there are more devices to be allocated 

> 

3*: CALL SKPSPC iSkip over any spaces 

Is there another device to allocate? 

Loop if yes 

We have finished al iocatinci all devices. 

See if we need to assign a logical name to the first device lue allocated. 

>Was a logical device name specified? 

; Br if not 

j Accrue the logical device name 

.; Get the logical device name 

i Get the physical device name 

; Do the assignment 



9*: 



TSTB 


-<R3) 


1:]EQ 


9* 


CALL 


GTRD50 


MOV 


R50BUF, R5 


MOV 


ALCIDV, RO 


CALL 


DOASGN 


Finished 




JMP 


RDCMD 



; Finished with command 
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i 
2 
3 
4 

5 001252 

6 001256 

7 001264 
a 001266 
9 

10 

11 

12 001276 

13 001302 

14 001306 
15 

16 
17 

15 001312 

19 001314 

20 001316 

21 001322 
001324 
001326 
001332 
001336 
001340 



22 
23 
24 
25 
26 
27 
28 
29 
30 

31 001350 

32 001354 

33 001360 

34 001364 

35 001370 

36 001372 

37 001374 

38 001400 
39 

40 
41 

42 001402 

43 001406 

44 001412 

45 001416 

46 001420 

47 001422 

48 001424 

49 001430 

50 001434 

51 001436 

52 001452 

53 001456 

54 001464 

55 001466 

56 001472 

57 001474 



005067 
032767 
001004 



004767 
004767 
004767 



1 1 1 300 
001473 
120027 

OOlOlr^ 

005203 
004767 
122327 
001465 



005267 
004767 
004767 
122327 
001401 
005303 
004767 
103435 



016702 
1 0267 
012700 
10437l> 
103334 
010005 
1 1 3700 
1 20227 
001014 



000712 
120227 
00 1 307 



176524 
0000000 



0000000 
0000000 
0000000 



000057 



0000000 
000101 



176426 
0000000 
OOOOOOG 
000072 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
000001 



004767 OOOOOOG 



OOOOOS 



. SBTTL DEALLOCATE command 
Deallocate an allocated device. 



CMDDLC: CLR ALCIDV 

OOOOOOG BIT #PO*ALC> PRIVCO 

BNE 1* 

FABORT #EM*ALC 



See if /ALL was specified 



1$: 



CALL 


CVTTAB 


CALL 


CVTUC 


CALL 


SKPSPC 



iClear deallocated device counter 

i Are me authorized to allocate devices? 

; Br if yes 

; Not authorized to deallocate 



i Convert tab and FF chars to spaces 

i Convert lower case chars to upper case 

iSkip over spaces 



Find devices for deallocation. 



3*: 



MOVB 


<R3),R0 


BEG 


10* 


CNPB 


RO. #'/ 


BNE 


4* 


INC 


R3 


CALL 


SKPSPC 


CMPB 


<R3>+, #'A 


BEQ 


12* 



FABORT #INVOPT 

Deallocate a list of devices 
Accrue the next device name 



Get 1st char of operand 

No devices specified* deallocate all 

Was a switch specified? 

Br if not 

Skip over slash 

Skip anit spaces 

"ALL"? 

Br if yes 

Invalid option 



4*: 



5*: 



INC 


ALCIDV 


CALL 


SKPSPC 


CALL 


GTRD50 


CMPB 


<R3)+, #': 


BEQ 


5* 


DEC 


R3 


CALL 


SKPDLM 


BCS 


7* 



Count deallocated devices 

Skip over any spaces 

Accrue the device name 

Was colon specified following name? 

Br if yes 

Backup pointer 

Skip valid delimiters <blank(s). comma) 

Br if invalid character 



)eallocate the device specified. 



6*: 
7*: 



MOV 


R50BUF, R2 


MOV 


R2, ALCDEV 


MOV 


#DLCEMT, RO 


EhiT 


375 


BCC 


2* 


MOV 


RO, R5 


MOVB 


S#ERRLOC, RO 


CMPB 


R2, #1 


BNE 


6* 


FERR 


#EM*DAA 


CALL 


PRTDEC 


. PRINT 


#CRLF 


BR 


2* 


CMPB 


R2, #2 


BNE 


2* 


FABORT 


#EM*IAD 



Get the name of the device 

Set name of device being allocated 

Point to EMT argument block 

Do the deallocation 

Br if ok 

Save job # if owned by someone else 

Get error code 

Device allocated by someone else? 

Br if not 

Device allocated by another job 

Print the number of the job that has the dev 

End of line 

i Invalid device being allocated? 

; Br if not 

/Invalid device for allocation 
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5B 
59 
60 

61 001504 005767 176272 

62 001510 001006 

63 001512 005067 OOOOOOG 

64 001516 012700 0000000 

65 001522 104375 

66 001524 000400 
67 

6S 
69 
70 001526 000167 0000000 



> Deallocate ail devices allocated by this user 
10*: 



11 



TST 


ALCIDV 


BNE 


20$ 


CLR 


ALCDEV 


MOV 


ttDLCEMT, RO 


EMT 


375 


BR 


20$ 



; Finis h i? cl 
20$: JMP 



; Were any devices specified? 
; Yes^ end of command 
iSay to deallocate all devices 
^ Point to EMT argument block 
> Do the deallocation 



RDCMD 



i Finished with command 



I 

( 

i 

i 
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t 
< 

4 
i 

i 
i 

i 

I 

4 



3 








4 








5 








6 








7 








S 


001532 


004767 


0000000 


9 








10 








11 








12 


001536 


004767 


0000000 


13 


001542 


105713 




14 


001544 


001436 




15 








16 








17 








13 


001546 


004767 


0000000 


19 








20 








21 








22 








23 


001552 


005767 


0000020 


24 


001556 


001012 




25 


001560 


121327 


000072 


26 


001564 


001002 




27 


001566 


105723 




28 


001570 


000407 




29 


001572 


016705 


0000000 


30 


001576 


004767 


0000000 


31 


001602 


103002 




32 








33 








34 








35 


001604 


004767 


000036 


36 








37 








38 








39 


001610 


122327 


000054 


40 


001614 


001401 




41 


001616 


005303 




42 


001620 


105713 




43 


001622 


001407 




44 


001624 


1 2 1 327 


000040 


45 


001630 


001742 




46 


001632 






47 








48 








49 








50 


001642 


000167 


0000000 



SBTTL REMOVE commarul 



CALL 


SKPSPC 


TSTB 


(R3) 


BEQ 


9* 



The REMOVE command has two {-imc tions: 

<1) To remove a device handler from memory. This function is a NOP 

under TSX-Plus; 
<2) To remove a named PLAS region. 

CMDREM: CALL CVTTAB i Convert tab and FF chars to spaces 

Quit if uje have reached the end of the command line 

1$: CALL SKPSPC iSkip past leading spaces 

i Are u)e at the end of the command? 

i Br if yes 

Accrue the name of a device or region 

CALL GTRD50 i Accrue device or region name 

If the name is longer than 3 characters then it must be a region 
namej otherwise check to see if it is a device name. 

j Is name longer than 3 characters? 
i Br if yes 

i Is name terminated with colon? 
i Br if not 
j Sk ip over colon 
i Must have been a device name 
3*: MOV R50BUF,Rr/ i Get 1st 3 chars of name 

; See if this is the name of a device 
; Br if device name 

This is a request to removf? a named PLAS region. 

*: CALL REMRGN i Remove a region 

Skip over any separating r omma 



TST 


R50BUF+2 


BNE 


2* 


CMPB 


<R3), #': 


BNE 


3* 


TSTB 


<R3) + 


BR 


5* 


MOV 


R50BUF, Rt" 


CALL 


CHKDEV 


BCC 


5* 



5*: 



4<45: 



FABORT #EM*CSE 
F i n i shed 
9*: JMP RDCMD 



CMPB 


(R3)+, #'> 


BEQ 


4* 


DEC 


R3 


TSTB 


(R3) 


BEG 


9* 


CMPB 


(R3), #' 


BEG 


1* 



;Is there a separating comma? 

; Br if yes 

i Point back to skipped char 

i Reached end of command? 

> Br if yes 

; Space separator? 

j Br if yes 

i Command syntax error 



1 
I 

4 
4 

I 
( 
i 
I 
4 
4 
i 
< 

i 

4 
4 
4 



1 

I 
i 
f 
i 
i 
i 
i 
i 
i 
i 
I 
€ 
i 

< 

< 
i 
i 



001646 010246 
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1 
2 
3 
4 
5 
6 
7 

a 

9 

io 
11 

12 
13 
14 
15 
16 
17 
18 
19 
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El :i minate 

I n p u t B : 
R50BUF = 



named f^LAS reqion. 



001 
001 
001 
001 
001 
001 
001 
001 



650 
654 
660 
666 
674 
702 
720 
726 



012702 
005062 
012762 
016762 
016762 



000010' 
OOOOOOG 
OOOOOOC 
OOOOOOG 
000002G 



OOOOOOG 
OOOOOOG 
000002G 



032762 OOOOOOG OOOOOOG 



20 
21 

23 001730 

24 001736 

25 001754 

26 001762 
27 

28 
29 

30 001764 

31 002000 
32 

33 
34 
35 

36 002002 

37 002010 

38 002026 
39 

40 

41 

42 002030 

43 

44 

45 

46 002044 

47 002046 



012762 OOOOOOG OOOOOOG 

032762 OOOOOOG OOOOOOG 

00 1 007 



= RariSO name of the region. 

REMRGN: MOV R2, -<BP) 

First attempt to attach to a private region with that name. 

MOV #REMRDB> R2 ; Point to region definition block 

CLR R. GSIZ<R2) ;Clear size word 

MOV #<RS. GBLIRS. PVT>. R. GSTS<R2) i Function = Attach private region 

MOV R50BUF,R. NAME<R2) i Set name of region 

MOV R50BUF-+-2, R. NAME+2<R2) 

. CRRG #XAREA> R2 ; Attempt to attach to region 

BIT #RS. CRR.. R. GSTS<R2) j Were we able to attach? 

BNE 1* .; Br if yes 

Unable to attach to private region. 
Try to attach to public region. 

MOV #RS. GBL. R. GSTS<R2) i Function = Attach global region 

-CRRG #XAREA, R2 ; Attempt to attach to it 

BIT #RS. CRR, R. GSTS<R2) i Was attachment successful? 

BNE 1* ;Br if yes 

Error — We are unable to attach to region 



00042.!. 



FERR 
BR 



#EM*UAR 
9* 



i Unable to attach to region 



012762 OOOOOOG OOOOOOG 1*: 
103006 



We successfully attached to the region. 
Try to eliminate the re^gion. 

MOV #RS. EGR.. R. GSTS<R2) ; Function = Eliminate region 
. ELRG #XAREA> R2 j Try to eliminate the region 
BCC 9* ; Br if successful 



1 2602 
000207 



Error - — Unable to eliminate the region 

FERR #EM*UER ^Unable to eliminate region 

F" i n i s h e d 

9$: MOV CSF)+, R2 
RETURN 
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5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
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002050 
002054 



002060 
002062 
002066 
002072 
002076 
002100 
002104 
002106 
002112 



002114 
002116 
002120 
002124 
002126 
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. SBTTL INSTALL Command 
ProtBBS the INSTALL command. 



004767 
004767 



010302 
004767 
016700 
020067 
001421 
020067 
001473 
020067 
00 1 470 



010300 
160200 
020027 
101404 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
175724 

175720 

175716 



OOOOOJ 



CMDINS: CALL 
CALL 



CVTTAB 
CVTUC 



i Convert tabs to spaces 
i Convert to upper case 



Accrue first keyword and see if it is ADD or DELETE 



MOV 


R3, R2 


CALL 


GTRD50 


MOV 


R SOB UF> RO 


CMP 


RO, R50ADD 


BEQ 


INSADD 


CMP 


RO, R50DEL 


BEQ 


INSDEL 


CMP 


RO, R50REM 


BEQ 


INSDEL 



002136 000167 OOOOOOG 



Save pointer to start of keyword 

Accrue 1st keyword 

Get 1st 3 chars of keyword 

Is keyword ADD?" 

Br if yes 

Is keyword DELETE? 

Br if yes 

Is keyword REMOVE? 

Br if yes 

Keyword is not ADD or DELETE. 

Error if Ist keyword is longer than 2 characters. 

Get pointer past end of keyword 
Determine length of Ist keyword 
1st keyword longer than 2 chars? 
Br if not 
FABORT #ILLCMD ; Invalid command 

This must be a device handler name — Ignore this command 

1*: JMP RDCMD ; Finished installing device handler 



MOV 


R3, RO 


SUB 


R2, RO 


CMP 


RO, #2 


BLOS 


1* 



€ 
4 



002142 
002146 
002152 
002156 



002162 
002166 



004767 
005067 
004767 
004767 



004767 
103002 



OOOOOOG 
175660 
OOOOOOG 
000546 



000144 



002170 004767 000450 



002174 
002200 



00221; 



OOOOOOC 
OOOOOOG 
000004 
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1 
2 
3 
4 
5 
6 
7 
S 
9 
10 

u 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

32 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 
51 
52 
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012702 
012704 
012700 
01242;> 
077002 



004767 000510 



J2?=> 

'22: 

002234 
002240 
002244 
002250 



002262 



010546 
016767 
012702 
012703 
012704 
012705 
012700 
012223 
012425 
077003 
012605 



175604 

OOOOOOG 

OOOOOOC 

OOOOOOG 

OOOOOOC 

OOOOOOG 



OOOOOOC 



002264 004767 000424 



002270 000167 OOOOOOG 



We are addiviq an imapt? 



INS ADD: CALL 
CLR 
CALL 
CALL 



CKSYPV 
lATTRB 
CLRPRV 
INSOPT 



; Require SYSPRV privilege 

; Clear all attribute flags 

j Reset privilege flag cells 

i Process any options that follow ADD 



Get the name of the image and see if it is currently in table 



CALL 
BCC 



INSNAM 
1* 



.: Get name of image and look it up 
; Br if name already in table 



Name is not currently in table. 

Try to find a free slot in the table. 

CALL INSFRE i Find free table entry 

Set up program name for free entry 



1*: 



?*: 



MOV 
MOV 
MOV 
MOV 
SOB 



#II*NAM+IIJiUF, R2; Point to target buffer 

#FILNAM, R4 i Point to name 

#4, RO ; Move 4 words 

iR4)+, <R2)+ ; Move name to buffer 

RO, 2* 



At this points R5 points to buffer where install entry is to be made 
Process any options that follow the file name 

CALL INSOPT ; Process any options that follow name 

Move attribute and privilege flags into install entry 



3$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
SOB 
MOV 



R5/-<SP) i Save address of entry in install table 

lATTRB, I1*FLG+IIBUF i Set attribute flags for program 

#PFSO» R2 iPoint to accrued privilege flags 

#II*PRV+IIBUF,R3> Install entry flags 

#PFCO> R4 ; Flags to clear when run 

#II*NPV+IIBUF,R5> Install entry 

#PVNPW» RO ; Get # words to move 

(R2)+, <R3)+ ; Move flags to be set 

<R4)+> <R5)+ ; Move flags to be cleared 

RO, 3* 

(SP)+, R5 > Recover address of entry in install table 



Add the entry to the install table 

CALL INSPUT iAdd entry to table 

F i n i B h e d 

JMP RDCMD 



TSKM2A - 
INSTALL 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 
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002274 004767 0000000 



002300 004767 000026 
002304 103004 
002306 



002316 005067 OOOOOOC 
002322 004767 000366 



002326 000167 0000000 



ProcesF, INSTALL DELETL command 
INSDEL: CALL CKSYPV ; Require SYSPRV privilege 

See if we can find program in install table 



CALL INSNAM 

I3CC 1$ 

FAB CRT #EM$FNI 

Found entry, delete it 



1$: 



CLR 

F i i i j E h {? (i 
JMP 



II*NAM+IIBUF 
INSPUT 



RDCMD 



Accrue file spec and try to find in table 
Br if found file name in table 
File not installed 



; Say image is not installed 
; Write entry back to table 



TSKr'12A - 
INSTALL 



— Keyboard 
Command 
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1 
2 
3 
4 
S 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



002332 
002334 



002336 
002340 
002344 
002350 
002352 
002360 
002362 
002366 
002372 



002400 
002404 
002406 
002412 
002414 
002420 
002422 
002424 
002426 
002432 



002434 
002440 
002444 
002446 
002450 
002454 



002456 
002462 
002466 
002470 
002474 
002476 



010246 
010446 



005002 
004767 
121327 
001013 
126327 
00 1 007 
012702 
112713 
1 1 2763 



012704 
005005 
004767 
103510 
005767 
001505 
005702 
00 1 403 
010267 
000431 



01 270 D 
004767 
010346 
010503 
004767 
012603 



016705 
004767 
103407 
020467 
001010 



Accrue a file spec for a Pile that is being installed and look the 

name up in the install table. 

Input B : 

R3 ~ Pointer to start of file spec. 

Outputs: 
C-flag cleared ==> Pound entry in install table. 

C-flag set ==> Cannot find entry in install table. 

Rb = Address of entry in install table if found. 



INSNAM: MOV 
MOV 



R2, -iSP) 
R4, ~(SP) 



OOOOOOG 
000052 

000001 000072 

132500 
000040 
000040 000001 



OOOOOOG 
0000000 

0000020 

OOOOOOG 



CLR 


R2 


CALL 


SKPSPC 


CMPB 


(R3)> #'* 


BNE 


11$ 


CMPB 


1<R3>,#': 


BNE 


11* 


MOV 


#WLDNAM, R2 


MOVB 


#' . (R3) 


MOVB 


#' , 1<R3) 



OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 



Determine if wildcard ("-k-") specified as device name 



Assume device name is not wild 

Skip up to start of file spec 

Wildcard as device name? 

Br if not 

Is this the device name? 

Br if not 

Remember device name is wild 

Blank out the device name 



Accrue the file spec 

11*: MOV #R50SAV, R4 ; Get default file extension <SAV) 

Say this is an input file 
Accrue the file spec 
Br if invalid file spec 
Was a file name specified? 
Br if not 

Is device name wild? 
Br if not 
Set wildcard as file name 



Translate logical file device to physical device with unit # 

12*: MOV #FILNAM>R5 i Point to file spec 

i Do logical assignment 

i SAVE POINTER 

i GET COPY OF DEVICE POINTER 

; MAKE BLANK UNIT = 

i RESTORE POINTER 

Error if logical disk (LD) specified for device 

Get the device name 
Convert to device index number 
Br if invalid device 
Is this a logical disk? 
Br if not 
FABORT #EM*LDi ; Can't have installed program on LD 



MOV 


#R50SAV, R4 


CLR 


R5 


CALL 


ACRE I L 


BCS 


10* 


TST 


FILNAM+2 


BEQ 


10* 


TST 


R2 


BEQ 


12* 


MOV 


R2, FILNAM 


BR 


5* 



MOV 


#FILNAM> R5 


CALL 


LOGASN 


MOV 


R3, -(SP) 


MOV 


R5. R3 


CALL 


FORCEO 


MOV 


<SP)+, R3 



MOV 


FILNAM, R;> 


CALL 


CHKDEV 


BCS 


6* 


CMP 


R4, LDDEVX 


BNE 


5* 



TSKM2A 
INSTALL 



-- Keybaard 
Command 



58 002506 

59 

60 

61 

62 002516 

63 002522 

64 002526 

65 002532 

66 002534 

67 002540 

68 002542 

69 002546 

70 002554 

71 002556 

72 002564 

73 002566 

74 002574 

75 002576 

76 002602 

77 002604 

78 002606 

79 002612 
SO 002616 
81 

82 
83 

84 002620 

85 002622 
86 

87 

88 

89 002624 

90 

91 

92 

93 002626 

94 002630 

95 002632 
96 

97 
98 
99 002634 
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6*: FABORT #EM*IAD > Invalid device 

Try to find existing entry for file in install table 



016705 
010567 
1 2700 
104375 
005760 
001422 
012700 
026027 
001410 
026027 
001404 
026060 
001004 
162700 
002361 
000407 
062705 
020567 
103741 



000261 
000401 



000241 



012604 
012602 
000207 



OOOOOOG 
OOOOOOG 
OOOOOOG 

0000000 

000006 
OOOOOOG 132500 

OOOOOOC 132500 

OOOOOOG OOOOOOC 

000002 



OOOOOOG 
OOOOOOG 



5*: 
1*: 



3*: 



13*: 



2*: 



MOV 
MOV 
MOV 

e:mt 

TST 

BEQ 

MOV 

CMP 

BEO 

CMP 

BEG 

CMP 

BNE 

SUB 

BGE 

BR 

ADD 

CMP 

BLO 



Point to Ist entry in table 

Set address in EMT 

Point to get EMT 

Get next install table entry 

Is this entry empty? 

Br if yes 

Get index to last word of name 



INSTBL, R5 

R5, INGADR 

ttlNGEMT. RO 

375 

IIBUF+II*NAM<RO) 

2* 

#6, RO 

FILNAM<RO)> #WLDNAM i Wildcard? 

13* i Sr if yes 

IIBUF+II*NAM<RO), #WLDNAM i Wildcard? 

13* ; Br if yes 

FILNAM(RO), IIBUF+II*NAM(RO) i Compare names 

j Br if this is not right entry 

; More words to check7' 

j Br if yes 

; Found entry 

; Point to next entry in table 

j Reached end of table? 

jLoop if not 



2* 

#2, RO 

3* 

4* 

#II**S2>R5 

R5, INSTBN 

1* 



Cannot find entry in table 



SEC 
BR 



9* 



We found entry for this name 
4*: CLC 

Finitihed 
9*: 

Invalid file spec 
10*: FABORT #BDFNAM 



MOV 


<SP)+,H4 


MOV 


( SP ) +> R2 


RETURN 





; Signal failure on return 



i Signal success on return 



Invalid file spec 



t 
« 
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IWGTALL Command 



i 
i 

i 



1 



4 








5 








6 








7 


002644 


016705 


0000000 


8 


002650 


010567 


OOOOOOG 


9 


002654 


012700 


0000000 


10 


002660 


104375 




11 


002662 


005767 


ooooooc 


12 


002666 


001411 




13 


002670 


062705 


OOOOOOG 


14 


002674 


020567 


OOOOOOG 


15 


002700 


1 03763 




16 








17 








13 








19 


002702 






20 








21 








22 








23 


002712 


000207 





Try to find a free entry in the install table. 

Outputs: 
R5 = Address of free entry in install table. 



INSFRE: 


MOV 


INSTBL, R5 


1^:^; 


MOV 


R5, INGADR 




MOV 


#INGEMT, RO 




EMT 


375 




TST 


II*NAM+IIBUI 




BEG 


2* 




ADD 


#II**SZ,R5 




CMP 


R5, INSTBN 




BLO 


1* 



; No free table entries 
FABORT #EM*nF 

i 

i F-ound free entry 

j 

3^: RETURN 



jPoint to Ist install table entry 

; Set address for EMT 

; EMT to get assign table entry 

; Get next entry 

i Is this entry free? 

j Br if found free entry 

; Point to next entry 

j Reached end of tabled' 

; Loop if not 



Install table full 
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INSTALL Command 



1 
2 
3 
4 
5 
6 

7 002714 010567 OOOOOOG 

8 002720 012700 OOOOOOG 

9 002724 10437t:> 
10 002726 000207 



Write the current install entry into the? install table. 



Inputs: 
R5 = Address in install table where entry is to go. 



IMSPUT: MOV R5> INPADR 

MOV #INPEMT, RO 

EMT 375 
RETURN 



; Set address for EMT 

; Point to EMT 

J Store install table entry 



i 

i 
i 
4 
I 



"ISKM2A --- Keyboard command rout MACRO V05. 04 Monday 21-Dec-S7 12: b3 Page 21 
INSTALL Command 



1 

2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



002730 010446 



002732 012704 000000" 
002736 004767 0000000 



002742 01260^1 
002744 000207 



Process command options specified with an INSTALL command. 

Inputs: 
R3 -- Pointer to option li&t. 

Outputs: 
R3 = Points past end of option list 

INSOPT: MOV R4>-<SP) 

Process list of options 



MOV #INSHD, R4 
CALL OPTLST 



iPoint to table of options 
; Process an option list 



F i n i t; h e d 



MOV (SP)+, R4 
RETURN 



Subroutine called to set a specific install attribute flag 

I n p u t s ; 
R4 -- Pointer to option table entry. 

Outputs: 
lATTRB = Combined attribute flags 



002746 051467 175060 
002752 000207 



IWSATR: .BIS <R4) .. lATTRj:* 
RETURN 



; Set attribute flag 
; Fini shed 



"rSKM2 A — K e y b o a r d 
HOUNT command 



3 
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SBTTL MOUNT rommf^nd 



P a g e 



4 








6 

7 








S 

9 

10 


002754 


004767 


OOOOOOG 








11 








12 


002760 


105067 


0000000 


13 


002764 


122327 


000040 


14 


002770 


001771' 




15 


002772 


124327 


000057 


16 


002776 


001014 




17 


003000 


005203 




18 


003002 


012704 


000160^ 


19 


003006 


004767 


0000000 


20 


003012 


103004 




21 


003014 






22 


003024 


1 1 1 467 


0000000 


23 








24 








25 








26 


003030 


105713 




27 


003032 


001004 




28 


003034 






29 


003044 


004767 


OOOOOOG 


30 


003050 


016702 


0000000 


31 


003054 


020267 


OOOOOOG 


32 


003060 


001002 




33 


003062 


016702 


OOOOOOG 


34 


003066 


010267 


OOOOOOG 


35 


003072 


122327 


000072 


36 


003076 


001401 




37 


003100 


005303 




38 








39 








40 








41 


003102 


016767 


OOOOOOG OOOOOOG 


42 


003110 


012700 


OOOOOOG 


43 


003114 


104375 




44 


003116 


103022 




45 


003120 


123727 


OOOOOOG 000001 


46 


003126 


001016 




47 


003130 


010005 




48 


003132 






49 


003146 


004767 


OOOOOOG 


50 


003152 






51 
52 
53 


003160 


000167 


OOOOOOG 








54 








55 


003164 


004767 


OOOOOOG 


56 


003170 


10571 ::i 




57 


003172 


001002 





i Mount a file structure. 

i This command has two poEsi 

; MOUNT dev — Simply enab 

; MDUNTL/CN03WRITE3 LDn fi 

> 

CMDMNT: CALL CVTTAB 

; Determine if a command 5wi 



1$: 



2^: 



3*: 



12*: 



15*: 



4$: 



5*: 



CLRB 


NOFLAG 


CMPB 


(R3)+, #' 


BEQ 


1* 


CMPB 


-<R3),#V 


BNE 


3* 


INC 


R3 


MOV 


#MTOPHD, R4 


CALL 


SEARCH 


BCC 


2* 


FABDRT 


#INVOPT 


MOVE 


< R4 ) , NOFLAG 



Get device name 



TSTB 


<R3) 


BNE 


12« 


FABORT 


#ILLCMD 


CALL 


GTRD50 


MOV 


R50BUF, R2 


CMP 


R2, R50LD 


BNE 


15* 


MOV 


R SOLDO, R2 


MOV 


R2, MNTDEV 


CMPB 


<R3)+,#': 


BEO 


4* 


DEC 


R3 



ble forms: 

le directory caching 

le-spec Clogical-nameD — Mount logical disk 

i CONVERT TAB AND FF CHARS TO SPACES 

tch was specified 



i ASSUME /NOWRITE NOT WANTED 
;SKIP ANY LEADING SPACES 

WAS A SWITCH SPECIFIED? 

BR IF NOT 

SKIP PAST / 

POINT TO TABLE OF SWITCHES 

LOOK UP THE SWITCH 

BR IF FOUND 

INVALID SWITCH 

REMEMBER IF NOWRITE SEEN 



IS THERE A DEVICE NAME? 

BR IF YES 

INVALID COMMAND 

GET DEVICE NAME 

PICK UP DEVICE NAME 

IS NAME "LD"? 

BR IF NOT 

TRANSLATE LD TO LDO 

SAVE DEVICE NAME 

WAS DEVICE NAME TERMINATED WITH COLON? 

BR IF YES 

BACKUP POINTER IF NOT 



See if device uje are mountina is allocated to another user 



Set device name for allocation EMT 

Point to EMT argument block 

Check for allocation conflict 

Br if no allocation failure 

Device allocated to another userT' 

Br if not 

Save # of job that ouns the device 

Device allocated to job 

Print # of job that owns device 

End print line 

Abort command 



MOV 


MNTDEV, ALCDEV 


MOV 


#TALEMT, RO 


EMT 


375 


BCC 


5* 


CMPB 


@#ERRL0C,#1 


BNE 


5* 


MOV 


RO, R5 


FERR 


#EM*DAA 


CALL 


PRTDEC 



.PRINT #CRLF 



JMP 



RDCMD 



See if there is a filt? name specified. 



CALL 


SKPSPC 


TSTB 


(R3) 


BME 


MNTLD 



Skip any spaces 



Was a file 
BR IF YES 



name specified? 
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MOUNT codimand 

58 003174 000167 000346 JMP MNTCSH ; NO FILE NAME — GO ENABLE DIRECTORY CACHING 



t 
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MOUNT command 



;l. 



3 
4 



6 
7 



003240 
003244 



003250 
003256 
003262 
003264 



003200 
003204 
8 003206 
9 
10 
11 

12 003216 

13 003220 

14 003224 

15 003226 

16 003236 
17 

IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
?9 
30 
31 

32 003270 

33 003274 

34 005276 

35 003302 

36 003304 
37 

38 
39 

40 003314 

41 003320 

42 

43 
44 

45 003324 

46 003330 

47 003334 

48 003336 

49 003340 

50 003342 
51 

52 
53 

54 003352 

55 003356 
56 

57 



105767 
001004 



1 0200 
004767 
103004 

1 0002 



016705 
004767 



112767 
012700 
104375 
105067 



1 2704 
005005 
004767 
103004 



012705 
004767 



016700 
004767 
103406 
020002 
103404 
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This is a MOUNT command with a file name. 

We are mounting a loqiral disfe. 

Make sure Logical Disk support was genned into system. 



OOOOOOG 



MNTLD: TSTB VLDSYS 
BNE IS* 
FABORT #EM*NLD 



WAS LD SUPPORT GENNED IN? 

BR IF YES 

LD SUPPORT NOT GENNED IN 



Make sure the logical disk name is ok. 



00041; 



18*: MOV R2, RO 

CALL LDDEVN 

BCC 6* 

FABORT #INVLDN 

6*: MOV RO, R2 



GET LD DEVICE NAME 

GET LD DEVICE INDEX NUMBER 

BR IF OK 

ERROR IF NAME IS NOT LD 

CARRY INDEX IN R2 



Close the log file if it is on the logical disk 



OOOOOOG 
OOOOOOG 



000001 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



MOV 



MNTDEV, R5 
LOGCHK 



;GET NAME OF LOGICAL DEVICE 

J SEE IF WE NEED TO CLOSE THE LOG FILE 



OOOOOOG 



MOVB 


#1.SERFLG 


MOV 


#DMTARG, RO 


ENT 


375 


CI. RB 


SERFLG 



Tell system to stop doing directory caching for the device 

DO . SERR TO AVOID ABORT FOR ILLEGAL DEVICE 

POINT TO EMT ARGUMENT BLOCK 

TELL SYSTEM TO STOP DOING CACHING 

DO . HERR 

Accrue the file name 

SET DEFAULT FILE EXTENSION 
SAY THIS IS AN INPUT FILE 
ACCRUE THE FILE SPEC 
BR IF OK 
5*: FABORT #BDFNAM i INVALID FILE SPEC 

Iranslate logical file device name to physical device 



MOV 


#R50DSK, R4 


CLR 


R5 


CALL 


ACRE I L 


BCC 


13* 



OOOOOOG 
OOOOOOG 



OOOOOOG 
000302 



13$: MOV #FILNAM, R5 
CALL LOGASN 



; POINT TO FILE SPEC AREA 

i PERFORM ANY LOGICAL DEVICE ASSIGNMENT 



Make sure file is not on same LD as is being mounted 

GET DEVICE THAT FILE IS ON 
SEE IF FILE IS ON A LD DEVICE 
BR IF NOT ON LD DEVICE 
IS IT ON LOWER # LD? 
BR IF YES 
FABORT #INVLDM ; INVALID LD ORDER 

Make sure the file name i t> not null 



MOV 


FILNAM, RO 


CALL 


LDDEVN 


BCS 


17* 


CMP 


RO, R2 


BLO 


17* 



005767 000002G 
001752 



17*: 



TST 
BEQ 



FILNAM+2 

5* 



>Is file name null? 
> Br if yes ■ — Error 



€ 

i 

4 
€ 

€ 

I 
( 
€ 
i 
€ 

4 
i 
I 
4 



Move file name into logiial disk name table 
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MOUNT command 
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58 
59 
60 
61 
62 
63 
64 
65 
oo 
67 
60 
69 
70 
71 
72 
73 
74 
75 
76 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

no 

111 
112 
113 
114 



003360 
003362 
003364 
003366 
003372 
003376 
003400 
003402 
003404 



003406 
003410 
003414 
003416 



010205 
00630t:y 
006305 
062705 
012704 
012425 
012425 
012425 
011415 



005004 
105767 
00 1 40r' 
052704 
010462 



OOOOOOG 
OOOOOOG 



MOV R2, R5 

ASL. R5 

ASL R5 

ADD #LDNAME.. R5 

MOV #FILNAM, R4 

MOV (R4)+, <R5) I- 

MOV <R4)+, (R5)-t' 

MOV <R4)+, (R5)-i- 

MOV <R4), (R5) 

Set up flags for logical disk 



; GET LOGICAL DISK UNIT # 
i ■K-4 WORDS PER ENTRY 

POINT TO ENTRY IN LOGICAL DISK TABLE 
POINT TO FILE NAME BUFFER 
MOVE NAME TO TABLE 



OOOOOOG 

OOOOOOG 
OOOOOOG 



9$: 



CLR 


R4 


TSTB 


NOFLAG ; 


BEQ 


9* ; 


BIS 


#LD*RON, R4 ; 


MOV 


R4>LDFLAG<R2) 



WAS NOWRITE SPECIFIED? 

BR IF NOT 

SET READ-ONLY FLAG 



Lookup file and set up information about position of logical 
disk on physical disk. 



003426 
003432 
003434 



003444 
003446 
003450 
003452 
003456 
003464 
003510 



003514 
003520 
003522 
003524 



003526 

003532 
003536 
003542 



003546 
003552 



004767 
i03004 



OOOOOOG 



CALL LDMNT 
BCC 10* 
FAB OR T #CSIMS4 

Protect the file 



i SET UP INFO ABOUT FILE FOR LOGICAL DISK 
i BR IF FOUND FILE 
i CAN'T FIND FILE 



010205 
006305 
006305 
062705 
1 1 2767 



OOOOOOG 
000001 



105067 OOOOOOG 



10*: MOV R2, R5 i GET LOGICAL DISK UNIT # 

; *■ 4 WORDS PER ENTRY 

i POINT TO ENTRY WITH FILE NAME 
OOOOOOG MOVB #1,SERFLG ; DO . SERR TO AVOID ABORTS ON ERRORS 

i DO . HERR 

See if a logical device name was specified following the file name 



MOV 


R2, R5 




ASL 


R5 




ASL 


R5 




ADD 


#LDNAME, R5 




MOVB 


#1,SERFLG 




FPROT 


#XAREA, #1,R5 


, #1 


CLRB 


SERFLG 





122327 
001775 
105743 
001410 



004767 
016705 
016700 
004767 



012700 
004767 



000040 



1 6* : 



CMPB 


<R3)+, #' 


liLQ 


16* 


TSTB 


-(R3) 


BEQ 


MNTCSH 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
000010 



iSKIP BLANKS 

; WAS A LOGICAL DEVICE NAME SPECIFIED? 
; BR IF NOT 



Assign logical name to logical disk 

ACCRUE LOGICAL DEVICE NAME 
GET LOGICAL DEVICE NAME 
GET PHYSICAL DEVICE NAME 
DO THE ASSIGNMENT 

Initiate directory caching for the device whose name is in MNTDEV 



CALL 


GTRD50 


MOV 


R50BUF, RG 


MOV 


MNTDEV, RO 


CALL 


DOASGN 



MNTCSH: MOV 
CALL 



#MNTARG, RO 
DOMNT 



J POINT TO MOUNT ARGUMENT BLOCK 
i ENABLE CASHING FOR DEVICE 



Now do a SET LD CLEAN operation to make sure all logical disks 
arf set up correctly 
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MOUNT command 

116 003556 004767 000000<3 CALL LDCLEN ; DO SET LD CLEAN 

117 ■> 

lis ! F-inished with MOUNT command 

119 ■> 

120 003562 000167 0000000 jnP RDCMD 



T SK M2 A ~- - K e y b o a r d c o m/n a n d r o u t 
MOIJNT command 
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€ 
C 



J. 

2 








3 








4 








5 








6 








7 








a 


003566 


104375 




9 


003570 


103021 




10 








11 








12 








13 


003572 


123727 


OOOOOOG 


14 


003600 


001007 




15 


003602 






16 


003616 


000406 




17 


003620 






18 








19 








20 








21 


003634 


000207 




22 








23 








24 








25 








26 








27 








28 








29 








30 








31 








32 








33 








34 








35 


003636 


020067 


ooooooc 


36 


003642 


001002 




37 


003644 


016700 


ooooooe 


38 


003650 


020067 


OOOOOOG 


39 


003654 


103410 




40 


003656 


020067 


OOOOOOG 


41 


003662 


101005 




42 


003664 


166700 


OOOOOOG 


43 


003670 


006300 




44 


003672 


000241 




45 


003674 


00040.1 




46 


003676 


000261 




47 


003700 


00020? 





000001 



DOMNT is called to execute; a mount or ..dismount EMT and check for 
errors. If an error is detected^ an error message is generated. 

Input r> : 
RO ~ Address of EMi argument block for mount or dismount emt. 



DOMNT: 



EMT 
BCC 



375 
9* 



i DO THE EMT (MOUNT OR DISMOUNT) 
i BR IF NO ERROR 



Error on mount or dismount emt. 



CMPB 


@#ERRLOC, #1 


BNE 


2$ 


FWARN 


#MNTFUL 


im 


9* 


2*: FERR 


#BDFNAM 


; F i n i f. h e d 




9*: RETURN 





MOUNT TABLE OVERFLOW? 

BR IF NOT 

MOUNT TABLE OVERFLOW 

INVALID DEVICE NAME 



LDDLVN is called to determine if a device name is of the form LDn and 
if so, to determine the unit number. 



I Ti p u t s : 
RO = Device name (rad50) 

Outputs: 

C-"flag cleared ==> Device i& LDn 

C flag set =•-> Dpvscp is not LDn 

RO = LD device inde:< number (2«-n) 



LDDEVN: 


CMP 




BNE 




MOV 


1*: 


CMP 




Bi. 




CMP 




BHI 




SUB 




ASL 




CLC 




BR 


2«: 


SEC 


3*: 


RETURN 



RO. R50LD 

1* 

R SOLDO, RO 

RO, R SOLDO 

2* 

RO, RS0LD7 

2* 

R SOLDO, RO 

RO 

3* 



Is name "LD"? 

Br i{' not 

Replace "LD" by "LDO" 

Is name in the range LDO to LD7? 

Br if not 



; Get unit number only 

•> Convert to device index number 

; Signal success on return 

j Signal failure on return 



003702 004767 OOOOOOG 



003706 
003712 
003716 
003722 



003724 
003730 



003734 
003740 
003742 
003744 



003754 
003760 
003764 
003766 
003772 
003774 
004000 
004002 
004006 
004010 
004014 



004020 
004024 



004030 
004034 
004036 
004042 
004046 
004050 
004054 
004056 



105067 
004767 
121327 
001004 



012704 
004767 



004767 
105713 
00 1 004 



174122 

OOOOOOG 

000057 



000174' 
OOOOOOG 



OOOOOOG 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004767 
016700 
00 1 767 
004767 
103403 
016200 
000772 
020067 
00 1 002 
016700 
010067 



016705 
004767 



10 5767 
001013 
01 670 D 
004767 
103406 
004767 
103003 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



174000 

OOOOOOG 
OOOOOOG 

OOOOOOG 



MACRO V05. 04 Monday 21-Dec-87 12: 53 Page 25 

. 3BTTL DISMOUN'I raotmand 

Di&mount a file struc tirr-f\ 

CMDDMT: CALL CVTTAB ; CONVERT TAB AND FF CHARS TO SPACES 

See if any qualifier were? specified following command keyword 

Clear flag set if /NOLDG specified 
Skip over any spaces 
Any qualifiers here?' 
Br if not 

Process qualifier folioujing command keyword 



CLRB 


DMTNLG 


CAL.L 


SKPSPC 


CMPB 


(R3), #V 


BNE 


5* 



MOV #DMTGHD, R4 
CALL OPTLST 



; Point to parsing table 
; Process any qualifiers 



Skip leading spaces and make sure a device name was specified 



5U: CALL SKPSPC 

TSTB (R3) 

BNE 6* 

FABORT #ILLCMD 



7*: 



SKIP LEADING SPACES 

WAS A DEVICE NAME SPECIFIED 

BR IF YES 

INVALID COMMAND IF NO DEVICE NAME 



Get name of device that is being dismounted 



6^: CALL GTRD50 ; ACCRUE THE DEVICE NAME 

GET DEVICE NAME 
BR IF NO DEVICE NAME 

211 : CALL ASNSRC ; SEE IF IT IS A LOGICAL NAME 

BR IF NOT 
GET ASSIGNED NAME 
ALLOW INDIRECT ASSIGNS 

1*: CMP RO, R50LD ; IS NAME "LD"? 

BR IF NOT 

TRANSLATE LD TO LDO 
SAVE NAME OF DEVICE BEING DISMOUNTED 

Close the log file if it is on the device being dismounted 



4$: 



CALL 


GTRD50 


MOV 


R50BUF. RO 


BEG 


7* 


CALL 


ASNSRC 


BCS 


1* 


MOV 


AT*DEV<R2),R0 


BR 


2* 


CMP 


RO, R50LD 


BNE 


4* 


MOV 


R SOLDO, RO 


MOV 


RO, MNTDEV 



MOV 
CALL 



MNTDEV, R5 
LOGCHK 



i GET NAME OF DEVICE BEING DISMOUNTED 
; SEE IF LOG FILE IS ON THAT DEVICE 



Print information message if device is still mounted by other jobs 

Was /NOLOG qualifier specified? 
Br if yes — Suppress information message 
GET NAME OF DEVICE BEING DISMOUNTED 
IS THIS DEVICE MOUNTED? 
BR IF NOT 

IS DEVICE MOUNTED BY ANYONE OTHER THAN US? 
BR IF NOT 
PRINT #INFOMT j STILL MOUNTED BY OTHER USERS 

Tell system to stop doing directory caching for the device 



TSTB 


DMTNLG 


BNE 


3* 


MOV 


MNTDEV, R5 


CALL 


CHKMNT 


BCS 


3* 


CALL 


CHKMTX 


BCC 


3* 



TSKM2A - 


— Keyboard comm 


and rout 


DISMOUNT comman 


d 




58 


004064 


1 1 2767 


000001 


59 


004072 


012700 


0000000 


60 


004076 


104375 




61 
62 
63 


004100 


105067 


OOOOOOG 








64 








65 


004104 


016702 


OOOOOOG 


66 


004110 


020267 


0000000 


67 


004114 


1 03420 




6S 


004116 


020267 


OOOOOOG 


69 


004122 


101015 




70 


004124 


166702 


OOOOOOG 


71 


004130 


006302 




72 


004132 


005062 


OOOOOOG 


73 


004136 


006302 




74 


004140 


006302 




75 


004142 


005062 


OOOOOOG 


76 


00^146 


016700 


OOOOOOG 


77 


004152 


004767 


OOOOOOG 


78 








79 








80 








81 


004156 


004767 


OOOOOOG 


82 


004162 


000167 


OOOOOOG 


83 








84 








85 








86 


004166 


10 5267 


173642 


87 


004172 


000207 
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OOOOOOG 3$: 



MOVE 

MOV 
EMT 
CLRB 



#1, SERFLG 
#DMTARG, RO 
375 
SERFLG 



DO . SERR TO AVOID ABORT FOR ILLEGAL DEVICE 

POINT TO EMT ARGUMENT BLOCK 

TELL SYSTEM TO STOP DOING CACHING 

DO . HERR 



See if a logical disk is being dismounted 



9$: 





MOV 


MNTDEV, R2 




CMP 


R2, R50LD0 




BLO 


9* 




CMP 


R2. R50LD7 




BHI 


9* 




SUB 


R50LD0, R2 




ASL 


R2 




CLR 


LDPDEV<R2) 




ASL 


R2 




ASL.. 


R2 




CLR 


LDNAME(R2) 




MOV 


MNTDEV, RO 




CALL 


DEADEV 


Fini 


G h e d 






CALL 


LDCLEN 




JMP 


RDCMD 



GET DEVICE NAME 

IS THIS A LOGICAL DISK? 

BR IF NOT 



GET UNIT # 

CONVERT TO WORD INDEX 

NO PHYSICAL DEVICE ASSIGNMENT 

GET INDEX INTO LDNAME TABLE 

NO FILE NAME 

GET NAME OF LOGICAL DISK 

DEASSIGN ANY LOGICAL NAMES 



i RESET INFORMATION ABOUT LOGICAL DISKS 
; FINISHED WITH COMMAND 



ProcesE /NOLOG qualifier for DISMOUNT command 

DMTNLQ: INCB DMTNLG .; Remember qualifier specified 

DMTLGQ: RETURN 



T SK M2 A — K e y b a r d c o mm a n d r o u t 
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.1 



3 








4 








5 








6 








7 








S 


004174 






9 


004174 






10 


004174 






11 








12 








13 








14 


004174 


032767 


OOOOOOC OOOOOOG 


15 


004202 


001004 




16 


004204 






17 








IS 








19 








20 


004214 


004767 


0000000 


21 


004220 


121327 


000057 


22 


004224 


ooioo;> 




23 


004226 


:i i 2300 




24 


004230 


001407 




25 


004232 


120027 


000040 


26 


004236 


001373 




27 








28 








29 








30 


00*^240 


004767 


OOOOOOG 


31 


004244 


3 05713 




32 


004246 


001004 




33 


004250 






34 


004260 


004767 


OOOOOOG 


35 


004264 


016705 


OOOOOOG 


36 


004270 


010567 


OOOOOOG 


37 


004274 


010567 


173500 


38 


004300 


010567 


OOOOOOG 


39 








40 








41 








42 


004304 


004767 


000232 


43 


004310 


,1.03004 




44 


004312 






45 








46 








47 








48 


004322 


004767 


OOOOOOG 


49 


004326 


103412 




50 








51 








52 








53 








54 


004330 


004767 


OOOOOOG 


55 


004334 


103004 




56 


004336 






57 









. SBTTL INITIALIZE ccmmand 
. SBTTL SQUEEZE commeiul 
. SBTTL FORMAT commai.ti 



DiBaliou.1 INITIALIZE and SQUEEZE commands i-f any other users have 
the E-pecified device mounted. 



CMDIN.I 
CMD3GZ 
CMDFM1 



See if user is authorized to use these commands 

BIT #PO*NFW!PO*fiYP.. PRIVCO i Authorized for these commands? 

BNE 13* ; Br if yes 

FADORT #EM*NFW j Not authorized for this command 

Skip over any options Bp£?cified with command keyuiord 



13*: 



1*: 



CALL 


CVTTAB 


CMPB 


<R3),#'/ 


BNE 


10* 


MOVE 


<R3)+, RO 


BEQ 


15* 


CMPB 


RO, #40 


BNE 


1* 



Accrue the device name 



10*: 



15*: 

14*: 



CALL SKPSPC 

TSTB (R3) 

BNE 14* 

FAB OR T #EM*DNR 

CALL GTRD50 

MOV R50BUF, R5 

MOV R5, MNTDEV 

MOV R5, SQZDEV 

MOV R5, ALCDEV 



Convert tabs to spaces 

Were any keyword options specified? 

Br if not 

Get next character from command 

Br if no device was specified 

Is this a space? 

Keep looking if not 



iSkip over any spaces 

> Was a device name specified? 

; Br if yes 

i Device name is required 

; Accrue the device name 

J Set name for mount/dismount 

; Save name of device being squeezed 

; Set name for test-allocation EMT 



Disallow SQUEEZE/INITIALJZE/FORMAT of any disk with a system file 



CALL CKSYDV 
BCC 11* 
FABORT #EM*SSY 



>See if device has any system files 

i Br if not 

i Can't do this to SY 



See if this device is mounted by anyone 



11*: 



CALL 
BCS 



CHKMN 

8* 



; See if device is mounted by anyone 

i Br i f not 



This device is in the mount table <R5=po inter to entry), 
See if this device is mounted by any other users 



3*: 



CALL CHKMTX 
BCC 2* 
FABORT #OTRMNT 



i Is device mounted by any other users? 

; Br if not 

,; Command not legal if mounted by others 



i 
i 
i 
I 

f 



TSKM2A — Keyboard 
FORMAT command 
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58 








59 








60 








61 


004346 


012700 


OOOOOOG 


62 


004352 


104375 




63 








64 








65 








66 


004354 


120467 


OOOOOOG 


67 


004360 


001404 




68 


004362 


016700 


OOOOOOG 


69 


004366 


004767 


OOOOOOG 


70 








71 








72 








73 








74 


004372 


016705 


173402 


75 


004376 


004767 


OOOOOOG 


76 


004402 


020467 


OOOOOOG 


77 


004406 


001406 




78 


004410 


005002 




79 


004412 


012703 


177777 


SO 


004416 


000300 




81 


004420 


050004 




82 


004422 


000410 




S3 


004424 


006300 




84 


004426 


016004 


OOOOOOG 


85 


004432 


016002 


OOOOOOG 


86 


004436 


010203 




87 


004440 


066003 


OOOOOOG 


88 








89 








90 








91 


004144 


016705 


OOOOOOG 


92 


004450 


010500 




93 


004452 


004767 


OOOOOOG 


94 


00*1456 


020467 


OOOOOOC 


95 


004462 


001014 




96 


004464 


016700 


OOOOOOG 


97 


004470 


001411 




98 


004472 


020002 




99 


004474 


101407 




100 


004476 


020003 




101 


004500 


103005 




102 








103 








104 








105 








106 


004502 


004767 


OOOOOOG 


107 


004506 


103713 




108 








109 








110 








111 


004510 


004767 


OOOOOOG 


112 








113 








1 1 4 









Dismount, and remount this; device to clean out all file entries 

aF>BDciated ujith this devire. 



2$: MOV #MNTARG.. RO 
EMf 375 



; Remount the device 



See if this device is al 3 oca ted to any other user 

8*: CMPB R4, LDDEVX ils this a logical disk? 

i Br if yes — Don't check for allocation 

.; Get RAD50 device name 

; See if device is allocated to anyone els« 

Remove from mount table any logical disks that are on the device 
berhui squeezed or initialised. 



CMPB 


R4, LDDEVX 


BEG 


12* 


MOV 


ALCDEV, RO 


CALL 


CHKALC 



12*: 



4*: 



MOV 

CALL 

CMP 

BEQ 

CLR 

MOV 

SWAB 

BIS 

BR 

ASL 

MOV 

MOV 

MOV 

ADD 



SQZDEV, R5 

CHKDEV 

R4, LDDEVX 

4* 

R2 

#177777>R3 

RO 

RO. R4 

5* 

RO 

LDPDEV(RO>, R4 

LDBASE<R0),R2 

R2, R3 

LDSIZE<RO), R3 



Get back device name 

Convert device name to dev # & unit # 

Is this a logical disk? 

Br if yes 

Say base block # -~ 

Say top block ~ 177777 

Put unit # in high byte 

Get unit # and device # together 

i Convert unit # to word table index 
j Get physical dev # and unit # 
;Get base block of logical disk 



iGet top block number of logical disk 

Search for any mounted logical disks that are on the disk being squeezed 

5*: MOV CSHDEV, Rb > Point to start of mount table 
7*: MOV R5, RO ; Get address of mount entry 

Copy mount entry into CDBUF 

Is this device on same physical device? 

Br if not 

Is this a logical disk?' 

Br if not 

See if logical disk is within disk being 5q.Z( 

Br if not 

Compare upper range 

We found a logical disk within the disk being squeezed. 
See if anyone else hai- that logical disk mounted. 



MOV 


CSHDEV, Rb 


MOV 


R5, RO 


CALL 


CDGET 


CMP 


R4, CDBUF+CD*DVU 


BNE 


6* 


MOV 


CDBUF+CD*BAS, HO 


BEG 


6* 


CMP 


RO. R2 


BLOS 


6* 


CMP 


RO.. R3 


BHIS 


6* 



CALL 

BCS 



CHKMTX 
3* 



.Anyone else have this logical disk mounted? 

■> Error if yes 



Dismount this logical diftk and any files associated with it 

CALL DMTSUB .; Do the dismount 

Chfck for more nested luqical disks 



TSKM2A — Keyboard cormnand rout MACRO V05. 04 Monday 21-Dec~37 12:53 Page 26-2 
FORMAT command 



115 004514 062705 OOOOOOG 

116 004 520 020567 OOOOOOG 

117 004524 10375,1 
11 £3 

119 
120 
121 

122 004526 016705 173246 

123 004532 004767 0000000 
124 

125 
126 
127 004536 000167 OOOOOOG 



ADD #CD**SZ>R5 
CMP R5, CSHDVM 
HLO 7* 



.: Point to next mount table entry 

.; Reached end of table?" 
; L o o p if not 



See if log file is op<?ned to device being squeezed 
If fco.. close it. 



MOV 
CALL 



SQZDEV, R5 
LOeCHK 



j Get name of device being squeezed 
; See if log file is on that device 



9* 



Coll CCL to process the ( ommand 

JMP CMDCCL ;Call CCL to process the command 



i 
I 
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1 








2 








3 








4 








5 








6 








7 








8 








9 








10 








11 


004542 


010246 




12 


004544 


010346 




13 


004546 


010446 




14 


004550 


010546 




15 








16 








17 








la 


004552 


004767 


000000(3 


19 


004556 


103422 




20 








21 








22 








23 








24 


004560 


012705 


004640 ' 


25 


004564 


012503 




26 


004566 


001416 




27 


004570 


016302 


0000000 


28 


004574 


042702 


177701 


29 


004600 


020204 




30 


004602 


00 1 370 




31 


004604 


1 1 6302 


0000000 


32 


004610 


042702 


177770 


33 


004614 


020200 




34 
35 
36 


004616 


001362 










37 








38 


004620 


000261 




39 


004622 


000401 




40 








41 








42 








43 


004624 


000241 




44 








45 








46 








47 


004626 


012605 




48 


004630 


012604 




49 


004632 


012603 




50 


004634 


012602 




51 


004636 


000207 




53 








54 








55 


004640 


OOOOOOG 




56 


004642 


0000000 




57 


004644 


OOOOOOG 





ChDck to see if a device being squeezed or initialized contains any 
By stem files. 

1 n p u t B : 
R5 - RadSO device name of device being squeezed or initialized 



Outputs: 
C-flag set ==> This device contains system files 



CKSYDV: MOV 
MOV 
MOV 
MOV 



R2, -<SP) 
R3, -CiP) 
R4, ~<SP) 
R5, -<SP) 



Convert device name to device index and unit number 



CALL 
BCS 



CHKDEV 
8* 



; Convert name to device index & unit # 
■> Bt if device name not recognized 



At this point; RO == unit number. R4 = device index number. 
Detiin loop to check each system file savestatus block. 

Point to vector of savestatus addresses 

Point to next savestatus block 

Br if reached end of list 

Get 1st word of channel 

Extract device index number 

Does it match device being squeezed? 

Br if not 

Get unit number 

Extract unit number 

Same as unit of device being squeezed? 

Br if not 

This device contains a uu&tem file 



MOV 


#SYFLVC. R5 


MOV 


(R5)+, R3 


BEG 


S* 


MOV 


C. CSW<R3)> R2 


BIC 


#-C<76>, R2 


CMP 


R2, R4 


BNE 


1* 


MOVB 


C. DEVQ(R3),R2 


BIC 


#--C<7.>, R2 


CMP 


R2, RO 


BNE 


1* 



;:.)EC 
BR 



;Bignal error on return 



9* 



This device does not contain a system file 



3^: CLC 
F i n i h h e ci 



.1 Signal no error 



9^: 



MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+, R5 
<SP)+, R4 

<SP)+- R3 
<SP)+, R2 



List of addresses of saventatus blocks for system files 



SYFLVC: . WORD SWPCHN 
. WORD SEGCHN 
. WORD SPLCHN 



; Swap file 

i PLAS swap file 

j Spool file 



1 
( 
< 
I 

4 
€ 

I 

i 
i 
i 

4 

C 

€ 

4 

i 

4 
I 
t 

« 

4 
4 
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FORMAT cofimnand 



58 004646 

59 004650 

60 004652 

61 004654 

62 004656 



0000000 
0000000 
0000000 
0000000 
000000 



WORD 


KMNCHN 


WORD 


CCLSAV 


WORD 


INDSAV 


WORD 


INDTSV 


WORD 






TSKMON, SAV 
CCL. SAV 
I WD. SAV 
TSXIND. TSX 
End of li&t 



TSKM2A - 
HON I TOR 

.1 



•- Keyboard 



i 

€ 



command rout HACRO MOS. 04 Monday 2i~Dec-S7 12: b3 Page 28 



SBTTL MONITOR <; ommBiici 



3 
4 








5 








6 








7 


004660 


005067 


OOOOOOG 


S 


004664 


005067 


OOOOOOG 


9 


004670 


004767 


0000000 


10 


004674 


004767 


OOOOOOG 


11 


004700 


004767 


OOOOOOG 


12 


004704 


010167 


OOOOOOG 


13 


004710 


122327 


000054 


14 


004714 


001075 




15 


004716 


004767 


OOOOOOG 


16 


004722 


010167 


OOOOOOG 


17 


004726 


1 1 2300 




IS 


004730 


001430 




19 


004732 


120027 


000054 


20 


004736 


001006 




21 


004740 


004767 


OOOOOOG 


22 


004744 


010167 


OOOOOOG 


23 


004750 


1 1 2300 




24 


004752 


001417 




25 


004754 


120027 


000057 


26 


004760 


ooi05;:.i 




27 


004762 


012704 


000234 ' 


28 


004766 


004767 


OOOOOOG 


29 


004772 


103004 




30 


004774 






31 


005004 


051467 


OOOOOOG 


32 

33 
34 


005010 


000757 










35 








36 








37 


005012 


012700 


OOOOOOG 


38 


005016 


104375 




39 


005020 


103026 




40 


005022 


10 5737 


OOOOOOG 


41 


005026 


00 1 404 




42 


005030 






43 


005040 


010046 




44 


005042 






45 


005056 


012605 




46 


005060 


004767 


OOOOOOG 


47 


005064 






48 


005072 


000167 


OOOOOOG 


49 


005076 


012700 


OOOOOOG 


50 


005102 


104375 




51 
52 
53 


005104 


000167 


OOOOOOG 








54 








55 


005110 







The MONITOR command is uf-ed to initiate performance monitoring. 

The form of the command is: 

MONTI OR base-address. top-addressC. #-biite5~"per-cel llt/smitches 



CMDMON: 



4?: 



2*: 



5*: 



OLR 


MNFLGS 


CLR 


MNBPC 


CALL 


CVTTAB 


CALL 


DELSPC 


CALL 


ACROCT 


MOV 


R 1 , MNBASE 


CMPB 


(R3)+>#S 


BNE 


3* 


CALL 


ACROCT 


MOV 


R 1 , MN TOP 


MOVB 


<R3)+>R0 


BEQ 


1* 


CMPB 


RO. #'. 


BNE 


2* 


CALL 


ACRDEC 


MOV 


R 1 , MNBPC 


MOVB 


<R3)+, RO 


BEG 


1* 


CMPB 


RO, #'/ 


BNE 


3* 


MOV 


#MQNHD, R4 


CALL 


SEARCH 


BCC 


5* 


FABORT 


#INVOPT 


BIS 


< R4 ) , MNFLGS 


BR 


4* 



; INITIALIZE EMT ARG BLOCK 

; CONVERT TAB AND FF CHARS TO SPACES 
DELETE SPACES FROM COMMAND LINE 
ACCRUE BASE ADDRESS 
SET IN EMT ARG BLOCK 
COMMA SHOULD BE DELIMITER 

■> ACCRUE TOP ADDRESS 

GET DELIMITER 

BR IF FINISHED WITH COMMAND 

DID HE SPECIFY NBPC? 

BR IF NOT 

ACCRUE NUMBER OF BYTES PER CELL 

GET DELIMITER 

BR IF END OF COMMAND HIT 

GOT A SWITCH? 

BR IF NOT 

POINT TO TABLE OF SWITCH OPTIONS 

SEARCH FDR SWITCH IN TABLE 

BR IF FOUND IT 

INVALID SWITCH 

SET BITS FOR SWITCH 

GO CHECK FDR MORE SWITCHES 



Finished scanning command. 
Initiate performance monitoring. 



1*: 



7*: 



6$: 



MOV 

EMT 

BCC 

fSTB 

BEQ 

FABORT 

MOV 

FERR 

MOV 

CALL 

. PRINT 

JMP 

MOV 

EMT 

JMP 



#MONAR 1 

375 

6* 

@#ERRLOC 

7* 

#NOPMGN 

RO, -(SP.) 

#PMBUSY 

(SP)H-, R5 

PRTDEC 

#CRLF 

RDCMD 

#MOf 

375 

RDCMD 



RO 



POINT TO EMT ARG BLOCK 

TRY TO INITIATE MONITORING 

BR IF OK 

CHECK ERROR CODE 

BR IF SOMEONE ELSE DOING MONITORING 

PM NOT GENNED IN 

SAVE # OF PM USER 

PM FACILITY IN USE BY ANOTHER USER 

GET # OF PM USER 

PRINT DECIMAL VALUE 

TERMINATE THE ERROR LINE 

> START MONITORING 



NOW 



; Invalid command syntas. 

i 

3*: FABORT #CSIMS1 



I 
< 
I 
< 
f 
< 

4 

I 

i 

i 
i 

i 
i 
i 
i 
i 
i 

4 

i 



T SK M2 A ~ -• K e y b o d r ci c o f?im d n d 
SPOOL cojnmand 



rout MACF?0 V05. 04 Monday 21"Dec-S7 12: 53 Page 29 



1 
n 

3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 

/^/\. 

45 
46 

47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



BDTTL SPOOL c ommanri 



005 
005 
005 
005 
005 



120 
124 
130 
132 
134 



005 
005 
005 



144 
1 50 
154 



005156 



005164 
005166 
005172 
005176 
005200 
005204 
005210 
005212 
005220 
005222 
005230 
005232 
005236 



00534' 



005250 

005252 
005256 
005260 
005262 
005266 
005272 



THE SPOOL COMMAND IS USED TO CONTROL THE OPERATION 
OF SPOOLED DEVICES. 
TH!£ i-ORM OF THE COMMAND .!(>: 
SPOOL DEV, OPTION, OPTION 



0047/67 
004767 
105713 
00 1 002 
000167 



0000000 
OOOOOOG 



OOOOOOG 



CMDSPO: 


CALL 


CVTTAB 




CALL 


CVTUC 




TSTB 


<R3) 




BNE 


1* 




JMP 


BADCMD 



CONVERT TAB AND FF 
Convert lower case 
ANY DEVICE NAMED? 
BRANCH IF YES 
MUST HAVE DEVICE NAME 



CHARS 
chars 



TO 
to 



SPACE 
upper C3S< 



ACCRUE DEVICE NAME IN RAD^O FORM. 



005140 004767 OOOOOOG 



1*: 



CALL 



GTRD50 



.: ACCRUE THE NAME 



016700 
004767 
103403 
1 6267 



010346 
012703 
004767 
012603 
012701 
020127 
103013 
026127 
001404 
026761 
001407 
062701 
000762 



1 1 2300 

004767 
10377.-'! 
005303 
012704 
004767 
103401 



If device name is a loqical name, translate to physical 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



MOV 
CALL 
BCB 
MOV 



R50BUF, RO 

ASNSRC 

3* 



Get device name 

See if this name is assigned 

Br if name is not assigned 



AT*DEV(R2).. R50BUF; Set physical device name 
NOW TRY TO FIND SDCB WHICH MATCHES NAME. 



3*: 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



4$: 



OOOOOOG 
OOOOOOG 



5*: 



NOV 


R3, -(SP) 


MOV 


#R50BUF, R3 


CALL 


FORCEO 


MOV 


(SP)+, R3 


MOV 


#SDCB>R1 


CMP 


R 1 , ttSDCBND 


BHIS 


2* 


CMP 


SDNAME(Rl) 


BEQ 


5* 


CMP 


R50BUF, SDN 


BEG 


CSGTOP 


ADD 


#SDCBSZ,R1 


BR 


4* 



; SAVE POINTER 

; POINT TO DEVICE NAME 

i MAKE UNIT IF NEEDED 

; RESTORE POINTER 

J POINT TO 1ST SDCB 

i CHECKED ALL? 

i BRANCH IF YES 
#DMYDEV; Is this dummy device entry? 

.i Br if yes 
Sn:- \ R 1 ) i DO NAMES MATCH? 

.1 BRANCH IF FOUND SDCB 

; GO CHECK NEXT SDCB 



J CAN'T FIND SDCB FOR DFVICtr. 

i 

2*: FAB OR T #INVDEV 

f 

> FOUND SDCB <R1). 
i IDFNTIf"Y OPTION. 



OOOOOOG 



000260 ' 
OOOOOOG 



CSGTOP: 


MOVB 


<R3)+>R0 




CALL 


CHKDLM 




BCS 


CSGTOP 




DEC 


R3 




MOV 


#SPLHD, R4 




CALL 


SEARCH 




BCS 


1* 



SKIP OVER ANY DELIMITERS 



POINT TO TABLE OF SPOOL OPTIONS 
LOOK UP OPTION 
BR IF ERROR 



FOUND OPTION. BRANCH OFF TO OPTION PROCESSING ROUTINE. 
SDCB ADDRESS IS IN Rl. 
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58 i 

57 005274 000134 jnP S(R4)+- 

60 ; 

61 ; ERROR IN SEARCH 

62 ; 

63 005276 005704 1*: TST R4 ; ILLEGAL OR AMBIGUOUS 

64 005300 001404 BEO 2* ; BR IF ILLEGAL 

65 005302 FABORT #AMBOPT ; AMBIGUOUS OPTION 

66 005312 2^: FABORT #INVOPT ; ILLEGAL OPTION 



TSKr'i2A 


-■■■ F^>;>wL^ 


::aV ii V Omfi 


;\- n d r a u t 


SPOOL comiTiand 






1 

2 
3 








4 








5 


005322 






6 








7 

















9 


005322 


105713 




10 


005324 


001425 




11 


005326 


121327 


000054 


12 


005332 


001403 




13 


005334 


1 2 1 327 


000075 


14 


005340 


00100.1. 




15 


005342 


005203 




16 








17 








18 








19 


005344 


004767 


OOOOOOG 


20 


005350 


010167 


172470 


21 


005354 


0.12700 


000040 ■' 


22 


005360 


104375 




23 


005362 


103004 




24 


005364 






25 


005374 


000167 


OOOOOOG 


26 








a- f 








28 








29 


005400 


00 5761 


OOOOOOG 


30 


005404 


001405 




31 


005406 


152761 


OOOOOOG 


32 


005414 


000167 


OOOOOOG 


33 


005420 






34 


005426 


000772 
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PROCESS THE 'DEL' (DELETE) OPTION. 
GPLDEi ; 

See if- a f.ile ID was speci)'-.ied 



V%: 



TSTB 


(R3) 


BEQ 


SPDLCR 


CHPB 


(R3),#', 


BEQ 


1* 


CMPB 


(R3),#'- 


BNE 


2* 


INC 


R3 



Was an id specified? 

Br if not 

Comma used as delimiter? 

Br if yes 

Equal sign used as delimiter? 

Br if not — space must have been delimiter 

Skip over comma or equal sign 



A file id was specified^ accrue the id value 



CALL 


ACRDEC 


MOV 


R 1 , DELEMT+4 


MOV 


#DELEMT, RO 


EMT 


375 


BCC 


9* 



9*: 



FABORT #EM*NID 
JMP RDCMD 



i Accrue the value 

; Set file ID in EMT arg block 

.; Point to EMT SlT^ block 

.1 Try to delete the file 

i Br if successful 

; Cannot find file with that id 



Abort the file currently being printed by the spooled device 



SPDLCR; TST 
BEG 
OOOOOOG BISB 

CSABT: JMP 



SDSFCB(Rl) i IS DEVICE BUSY? 
SPNBSY i BRANCH IF NOT 

#SD*DEL, SDFLAG(Rl) i SET DELETE FLAG 
RDCMD 



SPNBSY: . PRINT #DEVIDL 
BR CSABT 



€ 
I 
( 
I 
I 
< 
I 
< 

€ 
i 
€ 
i 
I 
< 

4 
« 

i 



I 
I 

< 
i 
i 
I 
i 
I 
( 
< 

i 
i 

€ 

I 

i 

< 
( 
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3 
4 
5 
6 
7 

a 

9 

10 

11 

12 
13 

14 
15 
1 6 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3S 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



PROCESS THE SPOOL 'ALIGN' OPTION. 
i SPOOL X X , AL I GN. <F I LE NAMH> ) 



005430 
005434 
005440 
005442 

005452 
005454 
005470 
005472 



005474 
005502 
005526 
005530 
005536 
005544 



004767 
122327 
001404 



010605 

010506 
.1 03763 



016167 
103010 



OOOOOOG 
000054 



005S'7^ 



00&6U6 
005610 
005646 
005650 
005706 
005710 

005712 

005720 
005726 



005730 
005734 
005742 



005744 

005750 
005756 
005760 
005764 
005766 

0057T;:: 

0057 74 



ousoo/' 

103421 

00 520;'' 
000737 

000706 



004767 
052761 
000405 



004767 
042761 

0101 or^ 

062702 
010204 
062704 

005203 
105713 



SPLALN: CALL CKPRIV 

CMPB (R3)+, #', 

BEQ 1* 
9*: FABORT #COAL 
J PARSE ALIGNMENT FILE NAME 
1*: MOV SP,R5 

. CSIGEN #ALDEX, #ALDEX, R3 

MOV R5, SP 



Must have operator privilege 
WAS FILE NAME GIVEN?' 
BR IF YES 



BC£ 



9* 



SAVE SP 

OPEN ALIGNEMENT FILE - 

RESET SP 

BRANCH IF . CSIGEN ERROR 



CHAN 3 



OOOOOOG OOOOOOG 



ALIGNEMENT FILE IS NOW OPEN ON CHANNEL 3 
OPEN SPOOLED DEVICE ON CHANNEL 1 

MOV SDNAME(R1 ), ALDBLK; SET UP DEVICE NAME 
.ENTER #XAREA, #1, #ALDBLK,#OiOPEN SPOOLED DEVICE 



000167 OOOOOOG 



JO*: 



BCC 2* 

. PRINT #COAD 

. CLOSE #3 

JMP RDCMD 



BR IF OPEN OK 

CAN'T OPEN SPOOLED DEVICE 

CLOSE ALIGNMENT FILE 



OOOOOOG 
OOOOOOG OOOOOOG 



WRITE 1ST RECORD TO SPOOLED FILE AND SPECIFY A 
FORM NAME OF "##'«-»"K-»" WHICH MEANS ALIGNMENT FILE. 

*; . WRITW #XAREA, #1, #ALrN, #4, #0 

NOW COPY ALIGNMENT FILE TO SPOOLED FILE 



CLR R2 i INIT BLOCK # 

4*: . READW #XAREA, #3, #BLKO, #256. , R2 

BCS 3* i BR IF END OF FILE 

. WRITW #XAREA, #1, #BLKO, #256. , R2 

INC R2 

BR 4* 
i HIT END OF ALIGNMENT FILE. CLOSE BOTH CHANNELS. 

3*: . CLOSE #1 

. CLOSE #3 

BH 1 0* 

PROCESS THE 'LOCK' OPTION. 
SPLLK; 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 

000006 



CALL 
B I S 
BR 



PROCi^-SS THE 
SPLFRM: 



SPLMTl: 



3* : 



CALL 

BIC 

MtiV 

ADD 

MOV 

ADD 

INC 

TSTB 



CKPRIV i Must have operator privilege 

#SD$FLK, SDFLAG<R1); SAY FORM IS LOCKED 
SPLHTl i NOW DO MOUNT 

'FORM' OPi.i.ON 

CKPRIV jMust have operator privilege 

#SD$FLK, SDFLAG<R1 ); SAY FORM IS NOT LOCKED 

Rl.. R2 i POINT TO FORM NAME CELL 

#SDFORM, R2 

R2. R4 i POINT TO END OF CELL 

#6, R4 

R3 ; SKIP OVER COMMA 

<R3) i HIT END OF NAME? 
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f I 
I 

I t 

It 

i 



5S 00D776 

59 006000 

60 006002 

61 006004 



63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
S3 
84 
85 
86 
87 
83 
89 
90 
91 
92 
93 
94 
95 
96 
97 



006010 
006012 
006014 
006020 



006030 
006032 
006036 



006042 
006046 
006052 

006054 

006056 
006060 
006064 
006070 



006074 
006100 
006104 
006106 
006112 
006116 
006120 
0061 26 



001 40''i 
020204 
103007 
1 1 2322 

0007 7n 

020204 
103003 

1 i id / di:- 

000773 



\.> ■'•+ c:! / O .1 

010100 
004767 
000167 



004767 
005761 
0014i;> 

010104 

005203 
00476/ 
010164 
000167 



004767 
005761 
00100^^ 
000167 
005761 
001403 
052761 
000167 



Jf: 



000040 



BEQ 


1* 


CMP 


R2, R4 


BH.IS 


2* 


MOVE 


<R3)+, <R2){ 


BR 


3* 


MD OF 


SHORT NAME WI 


CMP 


R2. R4 


BHIS 


2* 


MOVB 


#•■ , (H2)-i- 


UR 


1* 



BR IF YES- 
COPIED 6 CHARS? 
BR IF YES 
COPY IN FORM NAME 



FILLED TO 6 CHARS? 

BR IF YES 

PUT IN TRAILING SPACERS 



NOW TRY TO START SPOOtJ-R 



0000000 OOOOOOG 2$: 

000464 
OOOOOOG 



BIC 
MOV 
CALL 
JMP 



#SD$WFM, SDFLAG<R1)J SAY FORM MOUNT IS DONE 



Rl, RO 

SPOLGO 

RDCMD 



i POINT TO SDCB 

.: TRY TO START SPOOLER 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

177306 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



PROCESS THE 'SKIP' OPTION 

SPLSKP: CALL CKPRIV 

TST SDSFCB < R 1 > 

BEQ SPNBB 

; ACCRUE NUMBER 

MOV R1,R4 

INC R3 

CALL ACRDEC 

MOV Rl.. SDSKIP<R4) 

JMP RDCMD 

PROCESS THE 'BACK' OPIION 



Must have operator privilege 
IS DEVICE BUSY? 
BR IF NOT 

SAVE SDCB ADDRESS 
SKIP OVER COMMA 
ACCRUE DEC NUMBER 
SET SKIP COUNT IN SDCB 



SPLBAK: CALL 
TST 
BNE 
JMP 
TST 
BEQ 
BIS 

1*: JMP 



SPNBB: 
SPLBKl 



CKPRIV 

SDSFCB < R 1 ) 

SPLBK.1 

SPNBSY 

SDBU<R1) 

1* 



Must have operator privilege 

IS THE DEVICE BUSY 

BR IF YES 

GO GIVE ERROR MESSAGE 

ANY BLOCKS REMEMBERED YET? 

BR IF NOTHING TO BACKUP TO 



#SD*BAK, SDFLAG<Rl)i REQUEST BACK UP 
RDCMD 





TSKH2A - 


-- i-. eyboa 




SPOOL command 




.1 
3 






4 


006 1 32 




5 


006136 




6 


006140 




7 


006146 




8 


006150 




o 


006156 




10 


006160 




11 


006166 




12 


006170 




13 






14 


006176 




15 


006204 




16 


006206 




17 






IS 


006214 




19 


006220 




20 
21 


006222 




22 


006230 


1 i 


23 


006236 




24 


006240 




25 


006244 




26 


006250 




27 


006252 




2S 


006256 




29 
30 


006260 




31 


006262 




32 


006270 




33 


006272 




34 


006300 




35 
36 


006302 




37 


006310 




38 


006314 




39 


006316 




40 


006324 




41 


006326 




42 


006334 




43 


006342 




44 
45 
46 


006346 




47 






48 


006352 




49 


006356 




50 

51 
52 


006364 




53 






54 


006370 




55 


006374 




56 


006402 
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005761 
00 1 40.''i 

000413 
032761 

00 1 404 

000403 



032761 
001403 



005767 
00 1 003 



010102 
062702 
012703 
1 1 2200 

005303 
001373 

032761 
001404 

000403 



005761 
00 1 004 

000410 



004767 

000167 



004767 



000167 



00 4 7' 6 7 
042761 
000167 



OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 



OOOOOOG 
000006 



OOOOOOG OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



i PROCESS THE 


SPOOL 'STATUS' COM 


SPLSTA: 


TST 


SDSFCB(R1} i 




BEQ 


1* ■> 




. PRINT 


#SPACTV 




BR 


4$ 


1$: 


BIT 


#SD*WFM, SDFLAG(R1 




BEQ 


2$ 




. PRINT 


#SPWFM 




BR 


4* 


2$: 


. PRINT 


#DEVIDL 


; SEE 


IF IN SINGLE FILE MODS- 


4$; 


BIT 


#SD*SNG,SDFLAG<R1 




BEQ 


20* ; 




. PRINT 


#SPSNG 


; SEF 


IF SPOOL 


FILE IS Fin 1 


20*: 


TST 


NFRESB ; 




BNE 


3* ; 




. PRINT 


ttSPFUL 


> LI.S7 


CURRENT 


FORM NAME 


3*: 


. PRINT 


#SPCF 




MOV 


R1,R2 i 




ADD 


#SDFORM. R2 




MOV 


#6, R3 i 


5*: 


MOVE 

. TTYOLJT 


<R2)+. RO 




DEC 


R3 




BNE 


5* 


; SEE 


IF CURRENT FORM IS LOCKED 




BIT 


#SD$FLK.. SDFl. AG ( R 1 




BEQ 


6* > 




. PRINT 


#SPFLK 




BR 


7* 


6«: 


. PRINT 


#CRLF 


; List 


i K) f ah 


nut fiJes peTid;irig 


7*: 


TST 


SDFHD < R 1 ) i 




BNE 


11* ■> 




. PRINT 


#NOFIL i 




BR 


8* 


11$: 


. PRINT 


#QHDMS1 ; 




. PRINT 


#QHDMS2 ; 




CALL 


LSTSPL i 


8$: 


JMP 


RDCMD 



IS SPOOLER BUSY? 
BR IF NOT 



)i IS IT WAITING FOR A FORM MOUNT? 



>; IN SINGLE-FILE MODE? 
BR IF NOT 



IS SPOOL FILE FULL? 
BR IF NOT 



POINT TO FORM NAME CELL 
PRINT 6 CHARS 



)i IS FORM LOCKED? 
BR IF NOT 



for this device. 

ARE THERE ANY FILES PENDING FOR THIS DEVICE? 

BR IF YES 
NO FILES. . . 

PRINT HEADING MESSAGE 
UNDERLINE THE HEADING 
LIS! SPOOL FILES 



PROCESS THE 'SINGLE' OP'flON 



SPLSNG: CALL 
BIS 
JMP 



CKPRIV i Must have opprator privilege 

#SD*SNG, SDFI.AG<R1 ) ; SET SINGLE-FILE MODE 
RDCMD 



PROCESS THE 'MULTIPLE' OPTION 



SPLMUL: CALL 
BIC 
.JMP 



CKPRIV i Must have operator privilege 

#SD*SNG, SDFLAG<R1 ); RESET SINGLE-FILE MODE 

RDCMD 



57 
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58 








59 








60 








61 


006406 


004767 


0000000 


62 


006412 


010167 


171434 


63 


006416 


012700 


000046 ' 


64 


006422 


10437S 




65 


006424 


000167 


OOOOOOG 


66 








67 








68 








69 








70 


006430 


004767 


0000000 


71 


006434 


010167 


171420 


72 


006440 


03 2700 


000054 ' 


73 


006444 


10437;; 




74 


006446 


000167 


OOOOOOG 


75 








76 








77 








78 








79 


006452 


004767 


OOOOOOG 


80 


006456 


004767 


OOOOOOG 


81 


006462 


012704 


OOOOOOG 


82 


006466 


020302 




83 


006470 


10300''! 




84 


006472 


1 1 2324 




85 


006474 


020427 


000006G 


86 


006500 


103772 




87 








88 


006502 


020427 


0000060 


89 


006506 


103003 




90 


006510 


112724 


000040 


91 


006514 


000772 




92 


006516 


000167 


OOOOOOG 


93 








94 








95 








96 








97 








9S 








99 








100 


006522 


010046 




101 


006524 


010067 


000004G 


102 


006530 


012700 


OOOOOOG 


103 


006534 


10437S 




104 


006536 


012600 




105 


006540 


000207 





PROCESS THE SPOOL 'HOLD' COMMAND. 
HOLD MEANS DON'T START OUTPUT UNTIL 



CHANNEL 



SPLHLD; 



CALL 

MOV 

MOV 

EMT 

JMF^ 



CKPRIV 

R 1 , SPHLEM+4 

#SPHLEM, RO 

375 

RDCMD 



; Must have operator privilege 

; Set SDCB address in EMT arg block 

i Point to EMT arg block 

; Set hold mode 



PROCESS THE SPOOL 
AS 



300N AS A FILE lii 



NOHOLD' COMMAND WHICH MEANS START OUTPUT 

<^ CRFATLD. 



SPLNHL 



CALL 

MOV 

MOV 

EMT 

JMP 



CKPRIV 

R 1 , SPNHEM+4 

#SPNHEM.. RO 

375 

RDCMD 



j Must have operator privilege 
iSet SDCB address in EMT arg block 
> Point to EMT btq block 
.; Set NOHOLD mode 



PROCESS THE 'FORM' COMMAND. 



CMDFRM: 


CALL 


CVTTAB 




CALL 


CVTUC 




MOV 


#UFQRM, R4 


2*: 


CMP 


R3, R2 




BHIS 


1* 




MOVE 


(R3)+, (R4) + 




CMP 


R4, #<UF0RM+6> 




Bl.. 


2* 


; SEE 


IF WE 


NEED TO PAD NAML 


1*: 


CMP 


R4, #<UF0RM+6> 




BHIS 


3* 




MOVB 


#' , <R4)+ 




BR 


1* 


3*: 


JMP 


RDCMD 



.; CONVERT TAB AND FF CHARS TO SPACE 
i CONVERT ALL CHARS TO UPPER CASE 
i POINT TO CELL WHICH HOLDS FORM NAME 
; MOVED ALL OF NAME? 
iBR IF YES 

i MOVE FORM NAME TO UFORM 
.: MOVED 6 CHARS? 
;BR IF NOT 
WITH BLANKS 

; FILLED TO 6 CHARS? 

i BR IF FINISHED 

j PUT IN TRAILING BLANKS 



SPOLGO is called to stijrt a spooler. 

i n p u t s : 
RO "~ SDCB address of spooler to be started. 



SPOLGO: 


MOV 


RO.. -(SP) 




MOV 


RO, SPGEMH'4 




MOV 


#SPGEMT. RO 




EMT 


375 




MOV 


(SP)+,RO 




RETURN 





; SET SDCB ADDRESS IN EMT ARG BLOCK 
; POINT TO ARG BLOCK 
.: START THE SPOOLER 



\ 
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1 



3 
4 
5 
6 
7 
8 
9 
10 

n 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

ei, w 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006542 
006546 
006554 



006556 
006562 

006564 



00657-'l 
006600 
006602 



006604 
006610 
006612 
006614 
006620 
006622 
006626 
006630 
006644 
006650 
006656 



006660 
006666 

006670 
006700 
006704 
006710 
006714 
006720 
006724 
006730 
006732 
006736 
006740 
006742 
006746 
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. BBTTL SEND tummaimt 



004767 
1 1 2 767 
0004 U 



116701 
00 1 1 ■'*! 



10 506 7 
1 1 1 300 
00 1 420 



004767 
005701 
003422 
020127 

1 i oo:'! 

016101 
00 1 1 

000167 
032761 
00 1 364 



032767 
00 1 004 

012704 
112724 
112724 
1 i 2724 
116705 
016505 
010S02 
062702 
1 1 2224 
1 1 2224 
070527 
062705 



Process the YELL command which overrides TT gag but requires 
opeiBtor privilege. 



0000000 CMDYEL: CALL CKPRIV 

000003 OOOOOOG MOVE #3, YELEMT 

BR SNDCOM 



.; Require OPER privilege 

J Set the YELL and error flags 

i Enter SEND command code 



Process the OPERATOR command which functions as a send 
command to the operatarti. console. 



OOOOOOQ 



DPRCMD: MOVE CTRLTT.. Rl 
BNE SNDGN 
FAB OR T #NQOPTT 



GET LINE INDEX # OF OPR TERMINAL 

BR IF GOT OWE 

NO OPERATOR 'S CONSOLE 



PROCESS THE 'SEND' COMMAND. 



OOOOOOG 



CMDSND: 
SNDCOM: 



CLRB 
MOVE 
BE« 



YELEMT 

<R3).R0 

CSEXIT 



ACCRUE LINE #. 



000544 



OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG CSCD: 





CALL 


SNDLIN 




TST 


Rl 




BLE 


CSSCAN 


SNDGN: 


CMP 


R 1 , #LSTS{.. 




BHI 


LNUMER 




MOV 


LNPRIM(R1),R.I 




BNE 


CSCD 


LNUMER : 


FWARN 


#BDLIN 


CSEXIT: 


JMP 


RDCMD 


CSCD: 


BIT 


#fDETCH. LSW(Rl) 




BNE 


LNUMER 



This is not the YELL command 
GET 1ST CHAR OF COMMAND 
BRANCH IF NULL COMMAND 



Accrue line # to send to 

SEND TO SPECIFIC USER? 

BRANCH IF ALL OR OC 

IS THIS A VALID LINE *t? 

BR IF NOT 

GET PRIMARY LINE # 

BRANCH IF VALID 

Invalid line number 

; TRYING TO SEND TO DETACHED JOB? 
i BR IF YES 



AT THIS POINT THE INDEX NUMBER OF THE LINE WE WISH TO 

SEND TO IS IN Rl. 

PUT OUR LINE NUMBER AND USER NAME AT START OF MESSAGE BUFFER 



OOOOOOG OOOOOOG CSSCAN: 



OOOOOOG 

000015 

000012 

000007 

OOOOOOG 

OOOOOOG 

OOOOOOG 



000006 
OOOOOOG 



10*: 



BIT 


#PO$SND, PRIVCO 


BNE 


10* 


F ABORT 


#EM*SND 


MOV 


#MSGBUF.. R4 


MOVB 


#CR, <R4)+ 


MOVE 


#LF.. (R4) + 


MOVB 


#BELL, <R4.>t- 


MOVE 


CORUSR, R5 


MOV 


LNPRIM<RD), R5 


Mf:)V 


R5, R2 


ADD 


#NUMTB1, R2 


MOVB 


<R2)+, <R4)-4- 


MOVB 


<R2)+, <R4)i- 


MUL. 


#6, R5 


ADD 


#LUNAME. R5 



.; Are me privileged to send messages? 
i Br if yes 

i POINT TO MESSAGE BUFFER 
;PUT IN LEADING CR~LF-BELL 



i GET OUR LINE NUMBER 

j GET OUR PRIMARY LINE NUMBER 

i POINT TO TABLE WITH LINE NUMBER CHARACTERS 
iPUT IN LINE NUMBER 

i EACH JOB HAS A 12 CHAR USER NAME 

J POINT TO USER NAME ENTRY FOR THIS LINE 



c 
< 
I 

4 
I 
% 

< 
I 

t 
f 

( 
K 
% 
4 
< 

4 

c 



i 
i 
i 

! < 

' i 

I 

I 

I 
I 

» I 

t 

i 4 

I 

f i 

i 

I 4 

i 
i 
1 

i 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 



006752 
006756 
006760 
006764 
006770 
006774 
006776 
007000 
00700^^ 
007006 
007010 
007014 
007020 
007024 
007030 



1 2 1 527 
001416 
112724 
1 1 2724 
012702 
112524 
07720--^ 
124427 
001775 
005204 
112724 
1 1 2724 
1 1 2724 
1 1 272-4 
1 1 2724 



000040 

000040 
000050 
000014 



000040 



000051 
000040 
000055 
000055 
000040 



73 








74 








75 








76 


007034 


122327 


000040 


77 


007040 


001775 




78 


007042 


005303 




79 


007044 


112324 




80 


007046 


001403 




81 


007050 


020427 


1 77776<5 


82 


007054 


103773 




83 


007056 


005304 




84 


007060 


1 1 272-^ 


000015 


85 


007064 


1 1 2724 


000012 


86 


007070 


105014 




87 








88 








89 








90 


007072 


005701 




91 


007074 


001655 




92 


007076 


100450 




93 








94 








95 








96 








97 


007100 


032761 


OOOOOOG 


98 


007106 


001005 




99 


007110 






100 


007116 


000167 


OOOOOOG 


101 


007122 


032761 


OOOOOOG 


102 


007130 


00141-^1 




103 


007132 


032761 


OOOOOOG 


104 


007140 


001010 




105 


007142 


105767 


OOOOOOG 


106 


007146 


001005 




107 


007150 






108 


007156 


000167 


OOOOOOG 


109 


007162 


012700 


OOOOOOG 


110 


007166 


006201 




HI 


007170 


010160 


000002 


112 


007174 


104375 




113 


007176 


103006 




114 


007200 







M05. 04 


Monday 2 


1 -Dec -37 12: 53 


pBi 




CMPB 


<R5), #■' 






BEQ 


4* 






MOVE 


#' , <R4>+ 






MOVB 


#'(, <R4) + 






MOV 


#12. ,. R2 




6*: 


MOVB 


(R5)+, (R4) + 






SOB 


R2, 6* 




7$: 


CMPB 


-<R4), #BL.AiMK 






BEO 


7* 






INC 


R4 




5$: 


MOVB 


#'), <R4) + 




4f.: 


MOVB 


#' . <R4)+ 






MOVB 


#'-, <R4) + 






MOVB 


#'~, (R4)^■ 






MOVB 


#' . (R4.^^ 





33-1 



IS USER NAME BLANK? 

BR IF YES 

PUT IN A SPACE 

AND OPEN PAREN AT START OF NAME 

GET LENGTH OF NAME 

GET NEXT CHAR OF USER NAME 

MOVE REST OF NAME 

TRIM OFF TRAILING SPACES 

POINT BEYOND LAST NON-BLANK CHARACTER 
PUT IN CLOSE PAREN AT END OF NAME 
PUT " — " AT END OF NAME 



Now move message strinq to message buffer 



3$: 



1$: 



f-S: 



CMPB 


<R3)+,#' 


BEO 


3* 


DEC 


R3 


MOVB 


<R3)+, (R4) + 


BEQ 


2* 


CMP 


R4, #<MSGEWD -2: 


BLO 


1* 


DEC 


R4 


MOVB 


#CR, <R4)+ 


MOVB 


#LF, <R4)+ 


CLRB 


(R4) 



J SKIP OVER ANY BLANKS 

POINT TO 1ST CHAR OF MESSAGE 
MOVE MESSAGE TO OUR BUFFER 
BRANCH WHEN END HIT 
DON'T OVERFLOW OUR BUFFER 

i PUT CR-LF AT END OF MESSAGE 



; PUT IN NULL TO SIGNAL END 
See who lue should send the message to. 



TST 
BEQ 
BMI 



Rl 

LNUMER 

SNDALL 



WHO IS IT GOING TO? 
SEND TO CONSOLE TERMINAL 
SEND TO ALL LINES 



Send message to one terminal whose line index number 
is in R 1 , 



OOOOOOG SNDONE: BIT 

BNE 



OOOOOOG If: 
OOOOOOG 



2$: 



#*DILUP. LSW(Rl) i IS THAT LINE LOGGED ON? 
1$ ; BRANCH IF YES 

(Rl); IS LINE GAGGED? 
J BR IF NOT 



; BR IF YES 

; Are we yell ing? 

; Br if yes — Override gag 

.; SAY LINE IS GAGGED 

i POINT TO EMT ARG BLOCK 

.: GET LINE NUMBER * 1 

; SET LINE # IN ARG BLOCK 

i SEND THE MESSAGE 

i BR IF NO ERROR 



. PRINT 


#NOTON 


JMP 


RDCMD 


BIT 


#*TTGAG.. l.S 


BEG 


2* 


13 1 T 


#*INKMN, l-S 


BNE 


2* 


TSTB 


YELEMf 


BNE 


2* 


. PRINT 


#GAGMSG 


JMP 


RDCMD 


MOV 


#YELEMT. RO 


ASR 


Rl 


MOV 


Rl. 2(R0) 


EMT 


375 


BCC 


3$ 


FWARN 


#NMSGBF 
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115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 



007214 000167 OOOOOOG 



007220 
007224 
007230 
007234 
007242 
007244 
007252 
007254 
007256 
007260 
007266 
007270 
007274 
007276 
007304 
007306 
007312 
0073 1 4 
007316 
007322 
007324 
007326 
007342 
007346 
007350 



3*: 



JMF' 



RDCMD 



012703 
1 1 6702 
016202 
032763 
001437 
032763 
001033 
020302 
001431 
032763 
00 1 407 
105767 
001004 
032763 
001416 
012700 
010301 
006201 
010160 
104375 
103006 

162703 
001332 
000167 



Send messaqe to all tprmJnalB. 



OOOOOOG SNDALL: 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 2$: 

OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 3«; 

000002 



000002 
OOOOOOG 



1$: 



MOV 

MOVE 

MOV 

BIT 

BEO 

BIT 

BNE 

aw 

BEQ 

BIT 

BEQ 

TSTB 

BNE 

BIT 

BEQ 

MOV 

MOV 

ASR 

MOV 

EMT 

BCC 

FWARN 

SUB 

BNE 

JMP 



#LSTPL, R3 

CORUSR, R2 

LNPRIM(R2),R2 

#*DILUP, LSW(R3) 

1* 

#*DETCH, LSW<R3) 

1* 

R3j R2 

1* 

#*TTOAG, LSW7<R3) 

3* 

YELEMT 

3* 

#*INKMN, LSW'HRS) 

1* 

# YELEMT, RO 

R3, Rl 

Rl 

Rl, 2<R0) 

375 

1« 

#NMSGBF 

#2, R3 

2* 

RDCMD 



GET INDEX # OF LAST LINE 

GET OUR LINE INDEX # 

GET OUR PRIMARY LINE INDEX # 

IS THIS LINE LOGGED ON? 

BRANCH IF NOT 

IS THIS A DETACH LINE? 

BR ~ DETACH LINES DON'T NEED MESSAGES 

DON'T SEND MESSAGE TO DURSELF 

IS LINE GAGGED? 

BR IF NOT 

Are \i>e YELLing? 

Br if yes — Override gag 

IS JOB IN KMON NOW? 

IF NOT THEN DON'T SEND MESSAGE 

POINT TO EMT ARG BLOCK 

GET LINE INDEX # 

GET LINE NUMBER 

STORE LINE # IN EMT ARG BLOCK 

SEND THE MESSAGE 

BR IF NO ERROR 

REPORT NO MESSAGE BUFFERS 

MOVE ON TO NEXT LINE 

BRANCH IF MORE TO DO 



I 
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f 

c 
i 

€ 



1 

2 








3 








4 








5 








6 








7 








8 








9 








10 


007354 


010546 




11 








12 








13 








14 


007356 


004767 


ooooooe 


15 


007362 


121327 


000054 


16 


007366 


001407 




17 


007370 


121327 


000057 


IS 


007374 


00 1 404 




19 


007376 






20 








21 








*-)i-j 








cdl-f. 








23 


007406 


005203 




24 


007410 


004767 


ooooooe 


25 


007414 


1 1 1 300 




26 


007416 


020027 


000141 


27 


007422 


103402 




28 


007424 


1 62700 


000040 


29 


007430 


120027 


000101 


30 


007434 


001003 




31 


007436 


012701 


177777 


32 


007442 


000424 




33 


007444 


120027 


000117 


34 


007450 


001007 




35 


007452 


116701 


ooooooe 


36 


007456 


001016 




37 


007460 






38 


007470 


120027 


000120 


39 


007474 


001015 




40 


007476 


116701 


ooooooe 


41 


007502 


005761 


ooooooe 


42 


007506 


001402 




43 


007510 


016101 


ooooooe 


44 


007514 


1 1 2300 




45 


007516 


001407 




46 


007520 


120027 


000040 


47 


007524 


001373 




48 


007526 


000403 




49 








50 








51 








52 


007530 


004767 


ooooooe 


53 


007534 


006301 




54 








55 








56 








57 


007536 


Ot260r^ 





Accrue the line number associated with a SEND command 

Inputs: 
R3 = Points past end of SEND keyword. 

Outputs: 
Rl ~ Index number of job to send to <-l "=> Send to all jobs> 

SNDLIN: MOV R5, -(SP) 

See if a line number wac specified 

Skip over any spaces 
Start of line # field? 
Br if yes 

Start of line # field? 
Br if yes 
FABORT #EM*NLN J No line number was specified 

See if UJB are sendinq to ALL, OPERATOR, or PARENT 



CALL 


SKPSPC 




CMPB 


<R3),#' 


f 


BEQ 


1* 




CMPB 


<R3), #■ 


/ 


BEQ 


1* 





1*: 



2*: 



3*: 



4*: 



7$: 



INC 


R3 


CALL 


SKPSPC 


MOVB 


<R3),R0 


CMP 


RO, #141 


BLO 


2* 


SUB 


#40. RO 


CMPB 


RO, #'A 


BNE 


3* 


MOV 


#-1, Rl 


BR 


7* 


CMPB 


RO, #'0 


BNE 


4* 


MOVB 


CTRLTT, Rl 


BNE 


7* 


FABORT 


#NOOPTT 


CMPB 


RO, #'P 


BNE 


5* 


MOVB 


CORUSR, R.l 


TS'T 


LPARNT<R1) 


BEQ 


7* 


MOV 


LP AR NT (R.l ), Rl 


MOVB 


<R3)+,R0 


BEQ 


9* 


CMPB 


RO, #' 


BNE 


7* 


BR 


9* 



Point past delimiter 

Scan up to line number 

Get 1st char of "number" 

Is this a lower-case letter? 

Br if not 

Convert lower-case to upper case 

Send to ALL? 

Br if not 

Line # for All 

j Send to operator? 

; Br if not 

j Get operator line # 

No operator terminal 

Send to parent job? 

Br if not 

Get current job index # 

Is there a parent job?' 

Br if yes 

Get # of parent job 

Skip over rest of keyword 

Space? 



We must have an ordinary line number 



5«: CALL 


ACRDEC 


ASL 


Rl 


; Finished 




915: MOV 


<SP)+,. 



i Accrue line number 

.; Convert to line index number 



R5 
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3 
4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



007542 
007550 
007552 
007560 
007562 
007572 
007576 
007602 
007604 
007606 
007612 
007616 
007620 
007630 
007634 
007636 
007642 



007644 
007650 
007654 
007660 
007664 
007670 
007676 



007704 
007710 
007714 



007716 
007722 
007726 
007730 
007734 
007736 



007744 
007750 
007754 

007756 
007 762 
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. SBTTL ACCESS commBTui 
PROCESS THE ACCESS COMMAND 



001010 
032767 
001004 

004767 
012704 
105713 
001002 
000167 
020427 
103404 

005764 
001403 
062704 
000763 



005267 
012702 
010264 
010264 
010264 
1 1 2764 
112764 



016700 
020027 
00 1417 
004767 
103403 
016267 



016701 
004767 
103473 
110164 
1 1 0264 



OOOOOOG 
0000000 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG CMDACC; BIT 

BNE 
OOOOOOG 



15*: 
3$: 

1*: 

16*: 



#*SUCF, LSW9<R1) 

15* 
BIT #PO*SYS, PRIVCO 
BNE 1 5* 
FABORT #EM*NSF 
CALL CVTTAB 

#0KFILE,R4 

<R3) 

1* 

RDCMD 

R4, #OKFEtsiD 

16* 



MOV 

TSTB 

BNE 

JMP 

CMP 

BLD 



ARE WE INSIDE INITIAL COMMAND FILE? 

BR IF YES 

Does user have SYSPRV privilege? 

Br if yes 

ONLY LEGAL IN START-UP COMMAND FILES 

CONVERT TAB AND FF CHARS TO SPACES 

POINT TO TABLE OF FILE NAMES 

REACHED END OF COMMAND LINE? 

BR IF NOT 

FINISHED COMMAND 

TABLE OVERFLOW? 

BR IF NOT 

TABLE OVERFLOW 

SEARCH FOR FREE SLOT 

BR IF FOUND ONE 

CHECK NEXT SLOT 



OOOOOOG 

132500 

OOOOOOG 

000002G 

000004G 

177777 

177777 



4*: 



OOOOOOG 
OOOOOOG 



ANOTHER AUTHORIZED DEVICE-FILE 
GET WILD-CARD FILE SPEC VALUE 
SET FILE NAME TO WILD CARD 



WILDCARD THE DEVICE NAME TOO 



004767 OOOOOOG 
121327 000072 
001036 



OOOOOOG 
132500 

OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 
000270 



FABORT #TBLOVF 

TST 0F*FIL<R4) 

BEQ 4* 

ADD #OF**SZ, R4 

BR 1* 

Initialize table entry 

INC RESDEV 

NOV #WLDNAM, R2 

MOV R2, 0F*FIL<R4) 

MOV R2. OF*F I L+2 < R4 ) 

MOV R2, 0F*FIL+4<R4) 

MOVE #~1. 0F*DEV<R4) 

MOVE #- 1 , 0F*UNT < R4 ) 

Accrue device and file name. 

SCAN FIRST NAME 

IS COLON THE TERMINATING CHARACTER? 

BR IF NOT 

We just accrued the device name. 

See if this is a lotjical name that needs to be converted to physical. 

; Get specified device name 
i Wildcard? 

j Br if wildcard device name 
; See if name is in assign table 
i Br if name not in assign table 
AT*DEV(R2).. RSOBUFi Replace logical dev name with physical name 

Convert the name to a device table index number. 



CALL 


GTRD50 


CMPB 


<R3),#': 


BNE 


5* 



MOV 


R50BUF, RO 


CMP 


RO. #WLDNAH 


BEO 


6* 


CALL 


ASN3RC 


BCS 


8* 


MOV 


AT*DEV(R2) 



8*: 



OOOOOOG 
OOOOOOG 



MOV 

CALL 

BCS 

MDVB 

MOVB 



R50BUF, Rl 

CVTDEV 

ACBDFS 

Rl, 0F*DEV(R4) 

R2, 0F*UNT<R4) 



; GET THE RAD50 DEVICE NAME 

J CONVERT DEVICE NAME TO INDEX NUMBER 

.; BR IF BAD FILE NAME 

.: SET DEVICE INDEX NUMBER 

i SET UNIT NUMBER 



G^i f i 1 e name. 



TSKM2A 
ACCESS 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

63 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

SI 

S2 

S3 

84 

85 

S6 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

93 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



007766 
007770 
007772 
007776 
010000 
010004 
010006 
010012 
010016 
010020 
010024 
010026 
010032 

010040 
010044 
010046 
010050 
010054 



010062 
010066 
010070 
010074 
010100 
010102 
010106 
010110 
010116 
010120 
010122 
010126 



010130 
010134 
010140 



010144 
010160 
010164 
010170 
010174 
010200 
010202 
010204 
010210 
010212 
010216 
010220 
010224 



005203 
1 1 1 300 
120027 
001403 
004767 
103426 
004767 
016700 
001452 
020027 
00140r> 
010064 
016764 

121327 
00 1 006 
005203 
004767 
016764 



1 2 1 327 
00 1 020 
116300 
120027 
001403 
120027 
001052 
152764 
005203 
1 1 1 300 
004767 
103373 



062704 
004767 
000167 



6^$: 



005367 
005064 
105064 
105064 
1 1 2300 
00 1412 
120027 
001403 
120027 
001370 
116701 
000167 



000052 

0000000 

OOOOOOG 
OOOOOOG 

132500 

OOOOOOG 
000002G 

000056 



OOOOOOG 
OOOOOOG 



000057 

000001 
000122 

000162 



7'$: 
5*: 



000002G 



Se& 



9*: 



000004G 



INC 


R3 


MDVB 


<R3), RO 


CMPB 


RO, #'(<■ 


BEQ 


7* 


CALL 


CHKDLM 


BCS 


10$ 


CALL 


GTRD50 


MOV 


R50BUF, RO 


BEG 


AC B DPS 


CMP 


RO, #WLDNAM 


BEQ 


9* 


MOV 


RO, 0F*FIL<R4) 


MOV 


R50BUF+2, OF*F 


f ext 


ension mas speci 


CMPB 


(R3),#'. 


BME 


10$ 


IMC 


R3 


CALL 


GTRD50 


MOV 


R50BUF>OF*FIL 



FILE NAME 



SKIP PAST COLON 

GET FIRST CHAR OF 

WILD CARD? 

BR IF YES 

1ST CHAR OF NAME SHOULDN'T BE DELIMITER 

BR IF IT IS DELIMITER 

ACCRUE FILE NAME 

GET RAD 50 FILE NAME 

BR IF NULL NAME 

WILDCARD NAME? 

BR IF YES 

SET FILE 



NAME IN FILE SPEC 
2ND HALF OF NAME 



Fied. 



OOOOOOG OOOOOOG 13*: 

12*: 

OOOOOOG 



;WAS FILE EXTENSION SPECIFIED? 

; BR IF NOT 

i SKIP PAST PERIOD 

; ACCRUE THE EXTENSION 

IL+4(R4);SET EXTENSION 

See if any switch was specified with file spec. 

10*: CMPB (R3),#'/ i WAS A SWITCH SPECIFIED? 

BNE 11* ; BR IF NOT 

MOVB 1(R3)>R0 ;GET 1ST CHAR OF SWITCH NAME 

CMPB RO, #'R i "READ" ONLY? 

BEQ 13* jBR if yes 

CMPB RO, #'r i CHECK LOWER-CASE SPELLING 

BNE ACBDSW i BR IF INVALID SWITCH 

BISB #OT*RON, 0F*FLG(R4); SET READ-ONLY FLAG IN FILE SPEC 

INC R3 iSKIP OVER / 

MOVB <R3),R0 iGET NEXT CHAR OF SWITCH NAME 

CALL CHKDLM j SKIP UP TO NEXT DELIMITER 

BCC .1 2* 



Finished getting a file spec. 



OOOOOOG 

000236 

177436 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



000040 

000054 

OOOOOOG 
177312 



11^ 


i: 


ADD 


#0F**SZ,R4 






CALL 


SKPD2 






JMP 


3* 


i 


Error — ■ Invalid file & 


ACBDFS: 


FWARN 


#CSIMS2 






DEC 


RESDEV 






CLR 


0F*FIL<R*1) 






CLRB 


0F*DEV<R4) 






CLRB 


0F*UNT(R4) 


1*; 




MOVB 


(R3)+,R0 






BEQ 


2* 






CMPB 


RO, #' 






BEG 


3* 






CMPB 


R0,#', 






BNE 


1* 


3*: 




MOVB 


CORUSR,R.t 






JMP 


CMDACC 



p f > i: 



i POINT TO NEXT SLOT IN ACCESS TABLE 
iSKIP OVER TERMINATING DELIMITER 
i GO GET NEXT FILE SPEC IF ANY 



; Inval id device 

; Remove this entry from the access table 

J Say entry is unused 



.i Get next character 

.; Br if hit end of command 

> Is this character a 

.; Br if yes 

.; Is this character a comma?" 

i L o o p if not 

; Get back job index number 

; Go back and process the rest of the command 



space? 
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ACCESS command 

115 010230 000167 OOOOOOG 2*: JMP RDCMD 

116 } 

117 i Error — Dad switch 

118 i 

119 010234 ACBDSW: FABORT #INVfJPT 



TSKH2A - 


— Keybc 


ard CO mm 


snd rout 


ACCESS command 
-i 






i 
2 
3 








4 








5 








6 








7 








S 








9 








10 








n 








12 








13 


010244 






14 








IS 








16 








17 


010244 


005000 




IS 


010246 


07 1 027 


000050 


19 


010252 


012702 


177777 


20 


010256 


005701 




21 


010260 


001406 




22 


010262 


162701 


000036 


23 


010266 


010102 




24 


010270 


020227 


000011 


25 


010274 


101027 




26 


010276 


070027 


000050 


27 








28 








29 








30 








31 








32 








33 


010302 


020167 


0000000 


34 


010306 


001403 




35 


010310 


020167 


0000000 


36 


010314 


00 1 007 




37 


010316 


016701 


0000000 


38 


010322 


005702 




39 


010324 


002016 




40 


010326 


116702 


0000010 


41 


010332 


000413 




42 








43 








44 








45 


010334 


016700 


OOOOOOG 


46 


010340 


020160 


0000000 


47 


010344 


00140;. 




48 


010346 


162700 


000002 


49 


010352 


002372 




50 








51 








52 








53 


010354 


000261 




54 


010356 


000405 




55 








56 








57 
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CVIDEV is called to convert a RAD50 device name to the corresponding 
device table index number and unit number. 

1 n p u t s : 
FU == RAD50 device name. 

Outputs: 
Rl = Device table index number for device. 
R2 "- Unit number. 
C-flag set on retur?! if- invalid device name. 

CVTDEV: 

Get device name and split off unit number. 



6*: 



CLR 
DIV 
MOV 
TST 
BEQ 
SUB 

MOv; 

CMP 
13 HI 
MUL 



RO 

#50, RO 
#-l,R2 
Rl 
6* 

#36, Rl 
Rl, R2 
R2, #9. 
8* 
#50, RO 



SET FOR DIVIDE 

SPLIT OFF LOW-ORDER RAD50 CHARACTER 

ASSUME NO UNIT NUMBER SPECIFIED 

WAS A UNIT NUMBER SPECIFIED? 

BR IF NOT 

CONVERT RAD50 DIGIT TO BINARY VALUE 

PUT UNIT NUMBER IN R2 

MAKE SURE UNIT NUMBER IN RANGE 0-9. 

BR IF INVALID UNIT NUMBER 

GET DEVICE NAME WITHOUT UNIT # 



The RAD50 device name le&B unit number is now in Rl. 
The unit number is in R2. 



Translate SY and DK. 



2«: 



IS DEVICE NAME SYT' 

BR IF YES 

IS DEVICE NAME DK? 

BR IF NOT 

GET SY DEVICE INDEX NUMBER 

WAS A UNIT NUMBER SPECIFIED? 

BR IF YES 

GET SY UNIT NUMBER 



Look up device name in permanent device name table. 



CMP 


Rl, R50SY 


BEQ 


2* 


CMP 


Rl, R50DK 


HNE 


3* 


MOV 


SYINDX, Rl 


TST 


R2 


BGE 


4* 


MOVB 


SYUNIT+1,R2 


BR 


4* 



3$: 
5*: 



MOV NUMDEV, RO 

CMP R1,PNAME<R0> 

BEQ 7* 

SUB #2, RO 

BGE 5$ 



j Invalid device name 

8*: SEC 

BR 9* 

Found device name. 



GET INDEX OF LAST PERM NAME 
LOOK UP DEVICE NAME 
BR IF FOUND 
CHECK NEXT ENTRY 



J SIGNAL ERROR ON REIURN 



TSKM2A - 


— Keyboard commend rou 


ACCESS command 






58 


010360 


01 0001 




59 


010362 


005702 




60 


010364 


002001 




61 


010366 


00 5002 




62 


010370 


000241 




63 








64 








65 








66 


010372 


000207 




67 








68 








69 








70 


010374 


005203 




71 


010376 


121327 


000040 


72 


010402 


001774 




73 


010404 


121327 


000054 


74 


010410 


001771 




75 


010412 


000207 
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7f: 




MOV 


RO 


4$: 




TST 


R2 






BGE 


10 






CLR 


R2 


10$: 




CLC 




9 

i R 

i 

9*: 


et 


urn 

RETURN 





; GET DEVICE NAME TABLE INDEX 
J WAS A UNIT NUMBER SPECIFIED? 
i BR IF YES 

; CONVERT NO UNIT NUMBER TO # 
; SIGNAL NO ERROR ON RETURN 



SUBROUTINE TO SKIP OVER COMMAS AND SPACES 



SKPDl: 


INC 


R3 


SKPD2: 


CMPB 


<R3), # 




BEQ 


SKPDl 




CMPB 


<R3),# 




BEQ 


SKPDl 




RETURN 





; POINT TO NEXT CHAR 

i IS IT A SPACE 

; KEEP SKIPPING IF YES 

; IS IT A COMMA 

i KEEP SKIPPING IF YES 



TSKM2A — Keyboard 
DETACH command 



1 



3 








4 








5 


010414 


004767 


OOOOOOG 


6 


010420 


032767 


OOOOOOG 


7 


010426 


001004 




S 


010430 






9 








10 








11 








12 


010440 


121327 


000057 


13 


010444 


001062 




14 








15 


010446 


005203 




16 


010450 


012704 


000220 ' 


17 


010454 


004767 


OOOOOOG 


18 


010460 


103004 




19 


010462 






20 








21 


010472 


004767 


OOOOOOG 


22 


010476 


00630.1 




23 


010500 


020127 


OOOOOOG 


24 


010504 


103004 




25 


010506 






26 


010516 


020127 


OOOOOOG 


27 


010522 


101371 




28 


010524 


012700 


OOOOOOG 


29 


010530 


006201 




30 


010532 


010167 


000002G 


31 








32 


010536 


000134 




33 








34 








35 








36 


010540 


112710 


000001 


37 


010544 


104375 




38 


010546 


103404 




39 


010550 






40 


010556 


000403 




41 


010560 






42 


010566 


000167 


OOOOOOG 


43 








44 








45 








46 


010572 


112710 


000002 


47 


010576 


10437t> 




48 


010600 


103767 




49 


010602 






50 


010610 


000766 
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. SBTTL DETACH cotimimd 
PROCESS THE DETACH COMMAiMD 



CMDDET: CALL CVTTAJ3 

OOOOOOG BIT #PO*DET, PRIVCO 

BME 1* 

FAB OR T #EM*DEr 



CONVERT TAB AND FF CHARS TO SPACES 
IS USER ALLOWED TO USE DETACHED JOBS? 
BR IF YES 
NOT ALLOWED 



SEE IF ANY SWITCHES WERE SPECIFIED WITH COMMAND 



1*: 



CMPB <R3),#'/ 

BNE DETGO 
ACCRUE AND IDENTIFY SWITCH 

INC R3 

MOV #DETHD, R4 

CALL SEARCH 

BCC 2* 

FAB OR T #INVOPT 
ACCRUE LINE NUMBER AND GEE IF LEGAL 



ANY SWITCHES^' 

BR IF NOT — START DETACHED JOB 

SKIP OVER / 

POINT TO TABLE OF SWITCHES 

LOOK UP THE SWITCH 

BR IF FOUND OK 

INVALID SWITCH 



4$: 
3*: 



CALL 


ACRDEC 


ASL 


Rl 


CMP 


R 1 , #FSTDL 


BHIS 


3* 


FAB OR T 


#BDLIN 


CMP 


Rl, #LSTDL 


BHI 


4* 


MOV 


#DETARG, RO 


ASR 


Rl 


MOV 


Rl,DErARG+2 



ACCRUE THE DECIMAL NUMBER 

CONVERT TO LINE INDEX # 

SEE IF IT IS A DETACHED LINE 



POINT TO DETACH EMT ARG BLOCK 
STORE DETACHED JOB # 



BRANCH OFF TO PROCESSING ROUTINE 



JMP @<R4)+ 
Process the /CHECK optiun. 



DETCHK: MOVE 
EMT 
BCS 



«1, (RO) 

375 

DETIDL 



-PRINT #RUNMS 



BR 



DETJMP 



DETIDL: .PRINT #LINFRE 
DETJMP: JMP RDCMD 



i Process the 


/KILL op 


DETKIL: MOVE 


#2, <R0) 


EMT 


375 


BCS 


DETIDL 


. PRINT 


#DJABMS 


BR 


DETJMP 



ENTER PROCESSING ROUTINE 



SET SUB-FUNCTION CODE FOR EMT 
CHECK ON DETACHED JOB 
BR IF JOB FINISHED 
JOB STILL RUNNING 

LINE IS IDLE 
FINISHED WITH COMMAND 



SET SUB-FUNCTION CODE FOR EMT 
KILL A DETACHED JOB 
BR IF JOB NOT RUNNING 
PRINT CONFIRMATION 

FINISHED 



TSKM2A — Keyboard 
DE"fACH command 
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4 








5 








6 


010612 


010302 




7 


010614 


012704 


OOOOOOG 


8 


010620 


005005 




9 


010622 


004767 


OOOOOOG 


10 


010626 


103441 




11 


010630 






12 


010650 


103434 




13 


010652 






14 








15 








16 








17 


010660 


012700 


OOOOOOG 


18 


010664 


105010 




19 


010666 


010260 


000002 


20 


010672 


104375 




21 


010674 


103412 




22 








23 








24 








25 


010676 


010005 




26 


010700 






27 


010706 


004767 


OOOOOOG 


28 


0107ir? 






29 


010720 


00072P 




30 








31 








32 








33 


010722 






34 








35 








36 








37 


010732 






38 








39 








40 








41 


010742 







StsTt a neuj detached joli. 

R3 -- Pointer to ASCI2 string with detached job command file name. 

Try to open the command file to make sure it exists. 



DETGO: MDV R3, R2 

MOV #R50C0M, R4 

CLR R5 

CALL ACRFIL 

BCe 10* 



i Save pointer to start of file name string 

; Point to word with default extension (COM) 

; Say this is an input file 

/Accrue the file spec 

i Br if invalid file spec 



.LOOKUP #XAREA, #1, #rlLMAM i Try to open the file 
BCS 11$ j Br i f cannot open file 

.CLOSE #1 ; Close the file 

Execute EMT to initiate tht? detached job. 



MOV 


#DETARG, RO 


CLRB 


(RO) 


MOV 


R2, 2<R0) 


EMT 


375 


BCS 


1* 



Tell user which line wa& used 

MOV RO, R5 

. PRINT #DLMSG 

CALL PRTDEC 

. PRINT #CRLF 

BR DETJHP 

No free lines 
1*: FABORT #NOFRDL 

Invalid file spec 
10*: FABORT #BDFNAM 

Cannot open file 
11*: FABORT #EM*FOE 



POINT TO DETACH EMT ARG BLOCK 

SET SUB-FUNCTION CODE FOR EMT 

SET ADDRESS OF COMMAND FILE NAME ASCIZ STRING 

START A DETACHED JOB 

BR IF NO FREE LINES 



GET DETACHED JOB LINE NUMBER 
PRINT HEADING 
DISPLAY LINE # 
TERMINATE PRINT LINE 



NO FREE LINES 



€ 
I 
I 

I 
i 
< 
I 
€ 
C 
I 
C 
€ 

< 

i 
I 
< 

i 



TSKM2A ■ 


— Key bo 


fj r d c mma n d rout 


DATE command 
1 






3 
4 
5 


010752 


004767 


0000000 


6 


010756 


105713 




7 


010760 


001002 




8 

9 

10 


010762 


000167 


0000000 








U 








12 


010766 


004767 


OOOOOOG 


13 








14 


010772 


004767 


0000000 


15 


010776 


00570.1 




16 


011000 


003453 




17 


011002 


020127 


000037 


IS 


011006 


101050 




19 


011010 


072127 


000005 


20 


011014 


010105 




21 


011016 


122327 


000055 


22 


011022 


00 1 04;-? 




23 








24 


011024 


004767 


ooooooe 


25 


011030 


016700 


0000000 


26 


011034 


012701 


000001 


27 


011040 


012702 


OOOOOOG 


28 


011044 


020022 




29 


011046 


001405 




30 


011050 


005201 




31 


011052 


020127 


000014 


32 


011056 


101772 




33 


011060 


00042:J 




34 


011062 


072127 


000012 


35 


011066 


050105 




36 


011070 


122327 


000055 


37 


011074 


001015 




38 








39 


011076 


004767 


OOOOOOG 


40 


011102 


020127 


000143 


41 


011106 


101010 




42 


011110 


162701 


000110 


43 


011114 


003405 




44 
45 
46 


011116 


050105 




011120 


010567 


OOOOOOG 


47 


011124 


000167 


OOOOOOG 


4S 








49 


011130 


152767 


000010 


50 


011136 
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. SBTTL DATE c umoiarid 



Process the DATE command. 



CMDDAT; 



CALL 
TSTB 
BiME 
JMP 



CVTTAB 
(R3) 
3* 
SOPDAT 



CONVERT TAB AND FF CHARS TO SPACES 
DOES HE WANT TO SHOW OR CHANGE THE DATE? 
BR TO SET THE DATE 
GO DISPLAY THE DATE 



Set a neiu system date va.Uie (operator privilege required). 

iMAKE SURE THIS USER IS PRIVILEGED 



3*^: 


CALL 


CKPRIV 


i Get 


day val 


ue. 




CALL 


ACRDEC 




TST 


Rl 




BLE 


BADDAT 




CMP 


Rl,#31. 




BHI 


BADDAT 




ASH 


#5, Rl 




MOV 


Rl. R5 




CMPB 


(R3)+, #'- 




BNE 


BADDAT 


i Get 


month. 






CALL 


GTRD50 




MOV 


R50BUF, RO 




MOV 


#1,R1 




MOV 


#R50M0N.. R2 


2*: 


CMP 


RO, (R2) + 




BEQ 


1* 




INC 


Rl 




CMP 


Rl, #12. 




BLOS 


2$ 




BR 


BADDAT 


1*: 


ASH 


#10. .. Rl 




BIS 


Rl, R5 




CMPB 


<R3)+, #'- 




BNE 


BADDAT 


; Get 


X^eBT 






' CALL 


ACRDEC 




CMP 


Rl, #99. 




BHI 


BADDAT 




SUB 


#72. ,Ri 




BLE 


BADDAT 




BIS 


R1,R5 


i Set 


By stem 


date value. 




MOV 


R5, SYSDAT 




JMP 


RDCMD 


.; Invi 


»,Ud dat 


e value. 


BADDAT: 


BISB 


#10, INDERR 




F ABORT 


#INVDAT 



ACCRUE DAY VALUE 
CHECK RANGE OF VALUE 
CAN'T BE ZERO 
OR GREATER THAN 31 

POSITION FOR DATE WORD 
CONSTRUCT DATE WORD IN R5 
HYPHEN SHOULD BE NEXT 



ACCRUE RAD 50 MONTH VALUE 

GET RAD50 VALUE OF MONTH NAME 

FIRST MONTH IS # 1 

POINT TO TABLE OF MONTH NAMES 

LOOK UP NAME IN TABLE 

BR IF FOUND 

ADVANCE MONTH NUMBER 

ONLY 12 MONTHS 

BAD MONTH NAME 
POSITION MONTH VALUE 
AND OR INTO DATE WORD 
SHOULD HAVE ANOTHER HYPHEN 



GET YEAR VALUE 

CHECK FOR REASONABLE UPPER LIMIT 

BR IF TOO HIGH 

YEAR VALUE IS BIASED BY 72 

BR IF TOO SMALL 

FORM DATE WORD 

i SET NEW SYSTEM DATE VALUE 
; FINISHED WITH COMMAND 



; SAVE ERROR LEVEL 
.: INVALID DATE 



SEVERE FOR IND 



TSKM2A — Keyboard 
TIME command 
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€ 
€ 



1 










. BBTTL 


TIME comma lid 


3 
4 
5 011146 




Pro( 


ess the 


TIME command. 


004767 


0000000 


CMDTIM: 


CALL 


CVFTAB 


6 011152 


105713 








TSTB 


(R3) 


7 011154 


ooioo;.> 








BME 


2* 


S 011156 
9 
10 

11 

12 011162 


000167 


OOOOOOG 






JMP 


SOPTIM 








Set 


new syst 


em time < requires 


004767 


0000000 


2* 




CALL 


CKPRIV 


13 






t 


Get 


hour val 


ue. 


14 011166 


004767 


OOOOOOG 






CALL 


ACRDEC i 


15 011172 


020127 


000030 






CMP 


Rl.#24. ■> 


16 011176 


103053 








BHIS 


BADTIM 


17 011200 


010104 








MOV 


Rl, R4 


18 011202 


070427 


000074 






MUL 


#60. , R4 ; 


19 011206 


122327 


000072 






CMPB 


<R3)+,#': i 


20 011212 


001045 








BNE 


BADTIM 


21 






t 


Get 


minute value. 


22 011214 


004767 


OOOOOOG 






CALL 


ACRDEC i 


23 011220 


020127 


000074 






CMP 


Rl,#60. i 


24 011224 


103040 








BHIS 


BADTIM 


25 011226 


060 lot} 








ADD 


R1,R5 i 


26 011230 


005504 








ADC 


R4 


27 011232 


012700 


000074 






MOV 


#60. , RO i 


28 011236 


004767 


OOOOOOG 






CALL 


MUL32 


29 






i 


Sec* 


if sec on 


ds are specified 


30 011242 


122327 


000072 






CMPB 


<R3)+,#': ; 


31 011246 


001011 








BME 


3* ■> 


32 






f 


Get 


second value 


33 011250 


004767 


OOOOOOG 






CALL 


ACRDEC i 


34 011254 


020127 


000074 






CMP 


Rl,#60. ; 


35 011260 


10302;:' 








BHIS 


BADTIM 


36 011262 


060105 








ADD 


R1,R5 ; 


37 011264 


005504 








ADC 


R4 


38 011266 


012700 


000074 






MOV 


#60. , RO ■> 


39 






i 


Convert time 


to # clod: ticks. 


40 011272 


032767 


OOOOOOG OOOOOOG 


3* 




BIT 


#CW*50H, CONFIG : 


41 011300 


001402 








BEQ 


1* i 


42 011302 


012700 


000062 






MOV 


#50. > RO i 


43 011306 


004767 


OOOOOOG 


!$• 




CALL 


MUL32 ) 


44 






i 


Set 


neuj syst 


em time. 


45 011312 


010467 


OOOOOOG 






MOV 


R4,SYTIMH i 


46 011316 


010567 


OOOOOOG 






MOV 


R5, SYTIML ; 


47 011322 


000167 


OOOOOOG 






JMP 


RDCMD i 


48 






t 


Bad 


time val 


u e entered 


49 011326 


1 52767 


000010 OOOOOOG 


BADTIM: 


BISB 


#10.. INDERR ; 


50 011334 










FAB OR T 


ttlNVTIM .; 



CONVERT TAB AND FF CHARS TO SPACES 
DOES HE WANT TO SHOW OR CHANGE THE TIME? 
BR TO SET THE TIME 
GO SHOW THE TIME 

operator privilege) 

MAKE SURE USER HAS OPERATOR PRIVILEGE 

ACCRUE HOUR VALUE 
ONLY 24 HOUR IN A DAY 



CONVERT TO # MINUTES 

COLON SHOULD BE THE DELIMITER 



ACCRUE MINUTE VALUE 
ONLY 60 MINUTES PER HOUR 

COMBINE WITH HOUR VALUE 

CONVERT # MINUTES TO # SECONDS 



DELIMITER FDR SECONDS? 
NO, IGNORE SECONDS 

ACCRUE SECOND VALUE 

NO MORE THAN 60 SECONDS PER MINUTE 

COMBINE WITH HOURS AND MINUTES 

60 HZ CLOCK TICKS PER SECOND 

50 OR 60 HZ CLOCK? 

BR IF 60 HZ 

SET FOR 50 HZ CLOCK 

CONVERT # SECONDS TO # CLOCK TICKS 

HIGH-ORDER TIME VALUE 
LOW-ORDER TIME VALUE 
FINISHED 

SAVE ERROR LEVEL = SEVERE FOR IND 
INVALID TIME VALUE 



f 

i 
I 

4 
I 
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SBTTL. RESET roinmf.r.d 



3 








4 








5 








6 
7 
S 


011344 


004767 


0000000 


011350 


005067 


0000000 


9 


011354 


005067 


0000000 


10 


011360 


005067 


0000000 


11 

12 
13 


011364 


005067 


0000000 


011370 


012701 


011412' 


14 


1 1 374 


012102 




15 


011376 


00 1 403 




16 


011400 


005022 




17 


011402 


00 50 IP 




18 


011404 


000773 




19 


011406 


000167 


0000000 


20 








21 








22 








23 


011412 


OOOOOOG 




24 


011414 


0000000 




25 


0U416 


0000000 




26 


011420 


0000000 




27 


011422 


0000000 




28 


011424 


0000000 




29 


011426 


0000000 




30 


011430 


0000000 




31 


011432 


0000000 




32 


011434 


0000000 




33 


011436 


0000000 




34 


011440 


0000000 




35 


011442 


0000000 




36 


011444 


000000 





The RESET 
Opprator 

CMDRST: CALL 

i Resf-et dat 
CLR 
CLR 
CLR 
CLR 

i Re&Bt 32- 
MOV 

1*: MOV 
BEQ 
CLR 
CLR 
BR 

2* : ^JMP 



command reset 
privilege is r 

CKSYPV 
a cache statis 

DCTRD 

DCCRD 

DCTWR 

DCCWR 
bit data cells 

#RSTVEC, Rl 

(Rl)+, R2 

2* 

(R2) + 

<R2) 

1* 

RDCMD 



B system usage statistics. 
e q u i r e d . 



tics 



; Require SYSPRV privilege 

; TOTAL NUMBER OF READS FROM SHARED FILES 
i NUMBER OF READS FOUND IN CACHE 
; TOTAL NUMBER OF WRITES TO SHARED FILES 
i NUMBER OF WRITES THAT UPDATE CACHE DATA 

i POINT TO VECTOR OF ADDRESSES TO CLEAR 
iGET ADDRESS OF A CELL TO ZERO 
;BR IF HIT END OF LIST 
i CLEAR HIGH-ORDER WORD 
; CLEAR LOW-ORDER WORD 

; FINISHED 



Vector of 32~bit cells to clear. 



R ST VEC: 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



TMTOTH 

TMUSRH 

TMSWTH 

TMIOH 

TMSWFH 

TMIOWH 

TMIDLH 

CASTRO 

CASTBR 

CASCBR 

CASTWO 

CASTBW 

CASCUP 
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I 

€ 
€ 



:l 
2 
3 
4 
5 
6 
7 

a 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 



32 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 
51 
52 
53 
54 
55 
56 
57 



01 



01 
01 
01 



01 
01 
01 
01 
01 

20 01 

21 01 

22 01 

23 01 

24 01 

25 01 

26 01 

27 01 
23 
29 

30 
31 01 



01 



01 
01 
01 
01 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



1452 
1456 
1462 



1466 
1472 
1474 
1500 
1502 
1510 
1512 
1520 
1 522 
1530 
1 532 
1536 
1540 



1544 
1552 



1556 
1562 
1566 
1572 



1600 
1604 
1606 
1612 
1620 
1640 
1646 
1650 
1654 
1 660 
1674 
1676 
1734 
1 736 
174<-! 



116701 OOOOOOG 



10 5067 
012704 
004767 



020127 
101024 
105767 
001021 
032761 
001015 
032761 
001011 
032761 
001005 
004767 
103002 
000167 



052761 
005067 



004767 
004767 
004767 
052761 



005767 
001471 
004767 
1 1 2767 

1 1 2767 
i030i:i 
004767 
005067 

00043;* 

10374;.) 

052761 
052761 



166357 
000250 ' 
OOOOOOG 



OOOOOOG 

166335 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

001142 

OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 

OOOOOOG 

000001 OOOOOOG 

000000 OOOOOOG 

OOOOOOG 
OOOOOOG 



CLRB 


OFFNWF 


MOV 


#OFFHD, R4 


CALL 


OPTLST 



. SBTTL OFF command 

LOG OFF. 

CMDOFF: MOVB CORUSR, Rl J GET USER INDEX # 

See if any qualifiers were specified with command 

; Clear NOWARN flag 

> Point to parsing table 

; Process any qualifiers 

See if this is a primary process logging off with active subprocesses 

Is this a primary processT' 

Br if not 

Was /NOWARN qualifier specified? 

Br if yes — Don't worry about subprocBBses 

Did we exit a locked program? 

Br if yes — Don't worry about subprocesses 

Are we allowed to have terminal input? 

Br if not 

Have we already done a logAoff command file? 

Do logoff if so 

See if we need to warn about subprocesses 

Br if we should logoff 

Abort the logoff 



CMP 


R 1 , #LSTPL 


DHI 


14* 


TSTB 


OFFNWF 


BNE 


14* 


BIT 


#*PRGLK.LSW5<R1) 


BNE 


14* 


BIT 


#*NOIN, LSW3<R1> 


BNE 


14* 


BIT 


#*LOFCF, LSW9<R1) 


BNE 


14* 


CALL 


CKOFSP 


BCC 


14* 


JMP 


RDCMD 



Do the logoff. 



14*; 



BIS 
CLR 



#*N0IN>LSW3<R1) ; DON'T ALLOW ABORT OF LOGOFF 

RESDEV ; RELEASE ALL DEVICE/FILE ACCESS RESTRICTIONS 



Close all of user's files. 



CALL 


PRGALL 




CALL 


INDABT 




CALL 


ABRTCF 




BIS 


#*NOIN, 


LSW3 < R 1 ) 



PURGE ALL OF USER'S CHANNELS 

Abort IND and nested command files 

CLOSE THE CONTROL FILE 

CLEARED BY ABRTCF (POPCF), SET IT AGAIN 



11*: 



10*: 



Determine if we need to invoke a logoff command file 

; Is there a logoff command file? 

; Br if not 

; Prepare to open new command file 

i Do . SERR 

^LOFSPC ; Try to open the command file 
Do . HERR but don't affect carry flag 
Br if open was ok 
Pop command file status 
No logoff command file 
Cannot open logoff command file 

READW #XAREA, #crCHAN, iCFBUF, #256. , #0 j Read 1st block of file 



TST 


LOFSPC 


BEQ 


3* 


CALL 


PUSHCF 


MOVB 


#1,SERFLG 


. LOOKUP 


#XAREA, #C 


MOVB 


#0, SERFLG 


BCC 


10* 


CALL 


POPCF 


CLR 


LOFSPC 


FERR 


#EM*OLO 


BR 


3* 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



BCS 11* > Br if read error 

BIS #*CFOPN.. l.SW4<Ri )i Say CFCHAN is open 

BIS #*LOFCF, LSW9<R1 )i Say we are processing logoff command file 



i 
t 

I 
i 
< 
I 
i 
i 
i 
i 
i 
I 
i 
i 
i 
i 
i 
i 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

1 1 £4, 

113 
114 



011752 042761 0000000 OOOOOOG 
011760 005067 OOOOOOG 
011764 000167 OOOOOOG 



011770 012702 OOOOOOG 

011774 012703 OOOOOOG 

012000 012700 OOOOOOG 

012004 012722 177777 

012010 012723 177777 

012014 077005 

012016 052767 OOOOOOG OOOOOOG 



012024 004767 OOOOOOG 



012030 
012036 
012040 
012044 
012052 
012056 
012060 
1 2064 
012066 
012074 
012100 
012102 
012110 
012114 
012124 

012126 
012132 
012136 
012142 
012146 
012152 
012156 
012162 



012166 
012172 



012202 
1 2206 

012210 
012230 



BIC 
CLR 
JMP 



#*D0OFF> LSWCRl ) » Say not doing logoff processing yet 
LDFSPC 'Say logoff command file has been started 

RDCMD i Go process 1st command in command file 



Enable privilege during logoff processing 



3*: 



12*: 



MOV 
MOV 
MOV 
MOV 
MOV 
SOB 
BIS 



#PRIVCO. R2 
#PRIVSO, R3 
#PVNPW, RO 
#177777> (R2)+ 
#1 77777 > <R3)+ 
RO, 12$ 
#LF$WRT, LOGFLG 



j Point to current privilege word 
iPoint to set privileges 
;Get # privilege words 
; Set all privilege flags 



ENABLE WRITES TO LOG FILE 



032761 
00 1 033 
016100 
042760 
020127 
101403 
005760 
00 } 020 

105767 
00 1 403 



000420 

016104 

016105 
016703 
004767 
012700 
004767 
010467 
010567 



016105 
00 1 53rv 



012174 012702 



00502 



103774 



. 03004 



Dismount all devices that were mounted by this job. 

CALL DMTALL i Dismount ail mounted devices 

Print usage statistics for line 



OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 



OOOOOOG 



13*: 



004767 OOOOOOG 



5$: 



BIT #*VNOTT, LSW(Ri) 

BNE 7* 

MOV LNPRIM<R1>,R0 

BIC #*CTRLS, LSW3(R0) 

CMP R 1 , #LSTDL 

BLOS 13* 

TST LWINDa(RO) 

BNE 7* 

.PRINT #CRLF 

TSTB STPFLG 

BEQ 5* 

. PRINT #SHTMSG 

CALL PRTTIM 



IS THIS JOB CONNECTED TO A TERMINAL? 

BR IF NOT 

GET PRIMARY LINE # 

MAKE SURE OUTPUT IS ENABLED 

Is this a subprocess? 

Br if not 

Does primary process have uiindouiing on? 

Br if yes — Don't display logoff time 

IS SYSTEM BEING SHUT DOWN? 

BR IF NOT 

PRINT SHUT-DOWN MESSAGE 

PRINT USAGE INFO 

PUT OUT EXTRA LF 



. TTYOUT #LF 
BR TIMUP 
IF PRTTIM DIDN'T DO CPU CALCULATION WE MUST DO IT HERE 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000012 

OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



7$: 



MOV 


LCPUHI<R1)>R4 


MOV 


LCPUL0(R1 ), R5 


MOV 


TKISEC, R3 


CALL 


DIVIDE 


MOV 


#10. ,R0 


CALL 


MUL32 


MOV 


R4, CPUAH 


MOV 


R5, CPUAL 


er logg 


ed on, then ac 



GET HIGH-ORDER CPU TIME (CLOCK TICKS) 
GET LOW-ORDER CPU TIME < CLOCK TICKS) 
GET # CLOCK TICKS PER SECOND 
CONVERT TIME VALUE TO # SECONDS 
CONVERT TIME VALUE TO 0. 1 SECOND 
UNITS BY MULTIPLYING BY 10 
SAVE HIGH-ORDER PART <0. 1 SEC) 
SAVE LOW-ORDER PART (O. 1 SEC) 



then accumulate his connect time 



TIMUP: 



iOV LPR0J(R1),R5 

BtIG NOTIM 

; DO A DE ASSIGN 

MOV #ASNTBL.. R2 

1*: CLR (R2)+ 

CMP R2/ #ASN!£ND 

BLO 1* 
i Try to open accounting file 

. LOOKUP #XAREA.. #'j , #AUTHFN 



i DO WE HAVE A PPN FOR USER? 
i BR IF NOT ~" DIDN'T LOG ON 



; CLEAR ALL OF HIS ASSIGNS 



BCC 



2* 



; BR IF OPEN OK 
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t 

€ 
C 
< 
I 



115 


012332 






116 


012240 


000512 




117 








lis 


012242 


oosoo;! 




119 


012244 


016103 


0000000 


120 


012250 






121 


012306 


103464 




122 


012310 


004767 


000544 


123 


012314 


012704 


0000000 


124 


012320 


012700 


OOOOOOG 


125 


012324 


020564 


OOOOOOG 


126 


012330 


001003 




127 


012332 


020364 


0000000 


128 


012336 


001406 




129 


012340 


062704 


OOOOOOQ 


130 


012344 


005300 




131 


012346 


001366 




132 


012350 


005202 




133 


012352 


000736 




134 








135 


012354 


016700 


ooooooe 


136 


012360 


166100 


OOOOOOG 


137 


012364 


005200 




13S 


012366 


060064 


OOOOOOG 


139 








140 


012372 


005264 


OOOOOOG 


141 








142 


012376 


066764 


OOOOOOG OOOOOOG 


143 


012404 


005564 


OOOOOOG 


144 


012410 


066764 


OOOOOOG OOOOOOG 


145 








146 


012416 


004767 


000436 


147 


012422 






148 


012460 






149 








150 








151 








152 


012466 


004767 


OOOOOOG 


153 








154 








155 








156 


012472 


012700 


OOOOOOG 


157 


012476 


012760 


OOOOOOG 000002 


158 


012504 


104375 




159 








160 








16.1. 








162 


012506 


105767 


OOOOOOG 


163 


012512 


001460 




164 


012514 


003046 




165 








166 








167 








16S 


012516 


052761 


OOOOOOG OOOOOOG 


169 


012524 


120127 


OOOOOOG 


170 


012530 


103403 




171 


012532 


120127 


OOOOOOG 



2-$: 
6*: 



.PRINT #COAF j PRINT WARNING MESSAGE 

BR NOTIM 

Search file for user's ppn entrit 

CLR R2 .: SET BLOCK # TO 

MOV LPR0G<R1>,R3 ; GET PROGRAMMER # 

. READW ttXAREA, #1 , #BLKO, #256. , R2 



BCS 3« 

CALL CVTBUF 

MOV #BLKO, R4 

MOV #ARNRPB.. RO 

5*; CMP R5, AR*PRvi<R4) 

BNE 8* 

CMP R3, AR*PRG<R4) 

BEQ 4* 

S*: ADD #AR**SZ,R4 

DEC RO 

BNE 5* 

INC R2 

BR 



BR IF END OF FILE HIT 
COMPLEMENT CONTENTS OF BUFFER 
SEARCH FOR RECORD IN BLOCK 
# RECORDS PER BLOCK 
DO PROJECT #'S MATCH? 
BR IF NOT 

HOW ABOUT PROGRAMMER NUMBERS 
BR IF WE FOUND THE RECORD 
KEEP LOOKING IN BLOCK 
ANY MORE RECORDS IN THIS BLOCK? 
BR IF YES 
i GO READ NEXT BLOCK 



6$ 

.: Found record. Add in new connect time 
4*: MOV MINTIM, RO i GET CURRENT TIME 

SUB LC0NTM<R1).. RO ^ CALCULATE CONNECT TIME 

INC RO 
7*: ADD RO, AR*C0N(R4) ; ACCUMULATE CONNECT TIME 
; COUNT NUMBER OF SESSIONS 

INC AR$CNT<R4) i INC SESSION COUNTER 
i ACCUMULATE CPU TIME 

ADD CPUAL, AR*CPL<R4> i ADD IN LOW-ORDER CPU TIME 

ADC AR*CPH<R4) ; ADD CARRY 

ADD CPUAH, AR*CPH<R4) i ADD IN HIGH-ORDER PART 
; WRITE UPDATED ACCOUNTING RECORD BACK TO FILE 

CALL CVTBUF > COMPLEMENT CONTENTS OF BUFFER 

. WRITW #XAREA, #1, #BLKO, #256. , R2 
3*: .CLOSE #1 

C 1 o ti e job's log file 

NOTIM: CALL LOGCLS i CLOSE LOG FILE 

BrocidciBst message to any monitoring jobs telling them uie are logging off 



MOV #GENMON> RO 
MOV # JS«OFF, 2 ( RO ) 
ENT 375 

Enter TSX to finish lof! off. 



TSTB 

BEQ 

BGT 



STPFLG 

1* 

15$ 



; Point to emt argument block 

i Set status code 

i Broadcast status message 



ARE WE DOING A SYSTEM SHUTDOWN? 

BR IF NOT 

Br if $STOP or BOOT specified 



Shutdown was specified. 

BIS #*NOABT.. LSW9<Rl)i Don't allow job abort 

CMPB R1,#LSTPL sis this a detached job? 

BLO 10* ; Br if not detached 

CMPB Rl.. #LSTDL > In the detached range? 
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172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 



012536 
012540 
012546 



012554 
012560 
012562 
012566 
012572 
012574 
012600 



012602 
012606 
012610 
012630 



012632 
012640 
012646 
012650 
012654 
012660 
012664 
012670 



ioi43::7 

126727 
003031 



012550 012702 



00 1 40t> 
012700 
010260 
10437l> 
162702 
001365 



004767 
103011 

000764 



042761 
126727 
003002 
000167 
005061 
005061 
012700 
10437f> 



OOOOOOG 000001 



V05. 04 


Monday 21~Dec-87 




BLOS 15* 


10*: 


CMPB PVDN. #1 




BGT 1 5$ 



0000000 
OOOOOOG 

OOOOOOG 

000004 

000002 
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i Yes, job is detached 

;Are we the last primary/virtual job? 

i Br if more jobs exist 

Kill all jobs (only detached jobs should be active). 

GET # OF LAST LINE 
11*: CMPB R2, CORUSR ; IS THIS OUR LINE? 

BR IF YES 

POINT TO KILL EMT ARG BLOCK 

SET # OF LINE TO KILL 

KILL THE LINE 
12*: SUB #2, R2 i DO NEXT LINE 



OOOOOOG 



13* 



MOV 


#LSTSL, R2 


CMPB 


R2, CORUSR 


BEQ 


12* 


MOV 


#KILEMT, RO 


MOV 


R2, 4(R0) 


EMT 


375 


: SUB 


#2, R2 


BNE 


11* 


Determine if 


the spooler is 


: CALL 


SPLACT 


BCC 


15* 


. TWA IT 


#XAREA, »TiMSPL 


BR 


13* 



still active. 

i Is the spooler still active? 
; Br if spooler is not active. 
iWait 2 seconds — check again 



*STOP or BOOT issued. 



OOOOOOG OOOOOOG 
OOOOOOG 000001 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



15*: BIC #*NOABT> LSW9<R1); AUom 

CMPB TOTON, #1 

BGT 1* 

JMP DOSTOP 

1*: CLR LPR0J<R1> 

CLR LPRDG(Rl) 

MOV #OFFEMT.. RO 

EMT 375 



job abort (necessary for 
Are uje the last job on system? 
Br if more jobs exist 
GO STOP THE SYSTEM 
CLEAR PROJECT/PROGRAMMER # 



log off) 



POINT TO LOG-OFF 
LOG OFF THIS JOB 



EMT ARG BLOCK 
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f 
i 

€ 



1 








2 








3 








4 








5 


012672 


105267 


165137 


6 


012676 


000207 




7 








S 








9 








10 








11 








12 








13 








14 








15 








16 








17 








IS 








19 


012700 


010246 




20 


012702 


010546 




21 








22 








23 








24 


012704 


005005 




25 


012706 


016102 


0000000 


26 


012712 


012700 


0000000 


27 


012716 


001454 




28 


012720 


105722 




29 


012722 


001401 




30 


012724 


005205 




31 


012726 


077004 




32 


012730 


005705 




33 


012732 


00 1 446 




34 








35 








36 








37 








38 


012734 


020527 


000001 


39 


012740 


003004 




40 


012742 






41 


012750 


000410 




42 


012752 






43 


012760 


004767 


0000000 


44 


012764 






45 








46 








47 








48 


012772 






49 








50 








51 








52 








53 


013012 


012702 


0000000 


54 


013016 


1 1 2200 




55 


013020 


001411 




56 


013022 


120027 


000040 


57 


013026 


00 1 773 





Subroutine called if the /NOWARN qualifier is specified with the OFF 
command. 



OFFNWN: INCB OFFNWF 
RETURN 



; Set NOWARN flag 



Subroutine called to determine if primary process has any active 
subprocesses and print warning message if so. 



I n p u t s : 
Rl = Process index number 



Outputs: 

C-flag cleared == 
C-flaq set == 



CKOFSP: MOV Ri 
MOV r: 



> pTDteed with logoff, 
•=> Abort the logoff. 

■<SP) 
■ < SP ) 



See if this process has any active subprocesses 



1*: 



4*: 



CLR 


R5 


MOV 


LSECPT(R1),R2 


MOV 


#MAXSEC, RO 


BEQ 


7* 


TSTB 


(R2) + 


BEQ 


4* 


IMC 


R5 


SOB 


RO. 1* 


TST 


R5 


BEG 


7* 



Count active subprocesses in 

Point to table of subprocess 

Get max # subprocesses 

Br if none to check 

Is this subprocess active? 

Br if not 

Count # active subprocesses 

Loop to check all 

Any active subprocesses? 

Br if not 



R5 

#'5 



There are active subprott-sse^s. 
Print warning messacje. 



2$; 



CMP 


R5, #1 


BCT 


2* 


. PRINT 


#TM*SA1 


BR 


5* 


. PRINT 


#TM*SA3 


CALL 


PRTDEC 


. PRINT 


#TM*SA4 



; One active subprocess?" 

i Br if more than one 

i You have 1 active subprocess 

; You have 

i Print # subprocesses 

J active subprocesses 



Read response 



5$: 



3$: 



. OTLIN #BLKO; #'rM*0A2 ; Print prompt and read response 

If first non-blank letter of response is "Y" then logoff* 
otherwise abort the loqoff. 



j Point to response buffer 
; Get next char of response 
i Br if hit end of line 
.; Ignore spaces 



MOV 


#BLKO, R2 


MOVE 


<R2)+. RO 


BEQ 


8* 


CMPB 


RO, #40 


BEQ 


3* 



I 
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58 013030 120027 

59 013034 00140f} 

60 013036 120027 

61 013042 001402 
62 

63 
64 

65 013044 000261 

66 013046 000401 
67 

68 

69 

70 013050 00024 J. 

71 

72 

73 

74 013052 01 260 i"' 

75 013054 012602 

76 013056 000207 



000131 
000171 



CHPB 
BEQ 
CHPB 
BEG 



RO, #'y 

7* 

RO, #'i! 

7* 



Abort the locfoff 

B^: SEC 

BR 9* 

Allow the logoff 

7$: CLC 



J F i n i & h e d 




9*: MOV 


<SP)+, R5 


MOV 


<SP)+, R2 


RETURN 





I B res p on r> e Ye & 7 

Br if ijeB 

Allou) lower-case too 



; Signal abort on return 



} Signal to logoff 
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.1 



3 








4 








5 


1 3060 


0:1.0146 




6 


013062 


0:i.0246 




7 


013064 


012701 


0000000 


B 


013070 


012702 


000400 


9 


013074 


005121 




10 


013076 


07720,'' 




U 


013100 


01260r,i 




12 


013102 


01260.1 




13 


013104 


000207 





Complement the contents oP BLKO buffer. 

We do this to mildly encript the authorization file. 



CVTBUF: 



1«: 



MOV 


R 1 , - < SP ) 


MOV 


R2, -(BP) 


MOV 


#BLKO, Rl 


MOV 


#256. , R2 


COM 


(Rl) + 


SOB 


R2. It. 


MOV 


(SP)+, H>d 


MOV 


(SP)+, Rl 


RETURN 





; POINT TO BUFFER 

; GET # WORDS TO COMPLEMENT 

; COMPLEMENT CONTENTS OF BUFFER 



i 
i 



i 

i 
i 
< 
t 

4 

i 

< 
i 

! ( 

I € 
i 

i 

» 
I 

i 

I 

1 
I 
I 
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KILL command 



3 








4 








5 


013106 


012705 


0000000 


6 


013112 


00040?? 




7 








S 








9 








10 








11 








12 


013114 


012705 


OOOOOOG 


13 


013120 


000402 




14 








lb 








16 








17 








IS 








19 


013122 


01270'J 


ooooooe 


20 








21 








22 








23 


013126 


004767 


OOOOOOG 


24 


013132 


004767 


OOOOOOG 


25 


013136 


006301 




26 


013140 


00 1 40;:i 




27 


013142 


020127 


OOOOOOG 


28 


013146 


:i. 1 404 




29 


013150 






30 








31 








32 








33 


013160 


01 01 02 




34 


013162 


004767 


OOOOOOG 


35 


013166 


103404 




36 








37 








38 








39 


013170 


010500 




40 


013172 


010160 


000004 


41 


013176 


10437t;i 




42 








43 








44 








45 


013200 


000167 


OOOOOOG 
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. SBTTL KILL command 
'thf? KILL command is used to abort the specified job. 



CMDKIL: MOV #KILEMT, R5 
BR JOB COM 

. SBTTL SUSPEND command 



iPoint to Kill EMT arg block 



Suspend the execution of" a specified job 

; Point to suspend EMT arg block 



CMDSPN: MOV 
BR 



#SJEMT, R5 
JOBCOM 



. SBTTL RESUME command 



Resume the execution of a suspended job 



CMDRSM: MOV #RJEMT, R5 
Accrue the job number 



JOBCOM: 


CALL 


CVTTAB 




CALL 


ACRDEC 




ASL 


Rl 




BEQ 


1$ 




CMP 


R 1 > #LST3L 




BLOS 


2* 



1*: FABORT #BDLIN 

See if me are privilecied to affect this job 



; Point to resume EMT arg block 



convert tab and FF- chars to spaces 

accrue decimal value 

Convert # to job index number 

Br if invalid line number 

Is this a valid line number 

Br if ok 

Invalid line number 



2*: 



MOV 


Rl, R2 


CALL 


CKACOJ 


BCS 


9« 



;Get job # to R2 for CKACOJ 
; Can me access this job 
; Br if not 



Execute EMT to affect tlit? job 



MOV 
MOV 
EMT 

F i n i & h f? d 

?*: JMP 



R5, RO 
Rl, 4<R0) 
375 



RDCMD 



; Point to EMT arg list 

> Set job number 

.: Perform the function 
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I 
{ 



i 
2 
3 
4 

5 01 
01 



3204 
3210 



6 
7 
S 
9 
10 013214 



oi: 
oi; 



11 

12 
13 

14 013224 

15 013230 
16 

17 
IS 
19 



21 01 

22 01 

23 01 

24 01 
25 

26 01 

27 01 

28 01 

29 01 
30 

31 01 

32 01 

33 01 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 
42 
43 
44 

45 01 

46 01 

47 01 

48 01 

49 01 

50 01 

51 01 

52 01 

53 01 
54 

55 
56 
57 



3240 
3246 
3250 
3256 

3260 
3264 
3266 
3274 

3276 
3300 
3302 
3310 
3314 
33c.0 
3322 
3326 
3330 
3334 
3336 



3342 
3350 
3354 
3360 
3362 
3366 
3372 
3374 
3400 



004767 
004767 



005067 
105713 
001405 

004767 
016767 



i 26727 
003404 

005205 

004767 
103004 

005205 

005705 
00 1 420 



120027 
001410 
120027 
001405 
120027 
001365 
000167 



1 1 2767 
012702 
120267 
001405 
012700 
010260 
104375 
162702 
00136C- 



. BBTTL. BOOT an<i *!iTUP commands 
Rpboot RT-11. 



0000000 
OOOOOOG 



OOOOOOG 



CMDBOT: CALL 
CALL 



CKPRIV 
CVTTAB 



i USER MUST HAVE OPERATOR COMMAND PRIVILEGE 
i CONVERT TAB AND FF CHARS TO SPACES 



Bee if a boot device wa& specified. 



OOOOOOG 
OOOOOOG OOOOOOG 



CLR BOTDEV 

TSTB <R3) 

BEQ 7* 
Accrue device name. 

CALL GTRD50 

MOV R50BUF. BOTDEV 

Make sure system is idle. 



ASSUME NO BOOT DEVICE WILL BE SPECIFIED 
WAS A BOOT DEVICE SPECIFIED? 
BR IF NOT — USE SYSTEM DEVICE 

ACCRUE RAD50 DEVICE NAME 

SAVE RAD50 NAME OF BOOT DEVICE 



See if any other users are logged on. 



7$: 



OOOOOOG 000001 



OOOOOOG 



CLR R5 

CMPB NUMON, #1 

OLE 1$ 

.PRINT #OTHRON 

INC R5 

.; See if the spooler is idle. 

1«: CALL SPLACT 

BCC 2* 

.PRINT ttSPLPND 

INC R5 



IDLE FLAG 

ARE WE ONLY JOB LOGGED ON? 

BR IF YES 

OTHER USERS LOGGED ON 

REMEMBER NOT IDLE 

; SEE IF SPOOLER IS ACTIVE 
iBR IF SPOOLER IS IDLE 
J THERE ARE PENDING SPOOL FILES 
> REMEMBER SYSTEM IS NOT IDLE 



See if u,ie need to ask for confirmation. 



5$: 



000131 
000171 
000012 
OOOOOOG 



000001 OOOOOOG 

OOOOOOG 

OOOOOOG 



TST 


R5 


BEQ 


10* 


, PRINT 


#STPASK 


. TTYIN 




CMPB 


RO, #'Y 


BEQ 


lOf 


CMPB 


RO, #171 


BEQ 


10* 


CMPB 


RO, #LF 


BNE 


5* 


JMP 


RDCMD 



Force logoff of all ust?rB. 



10*: 
11*; 



OOOOOOG 
000004 

000002 



12*: 



MOVB 


#1, STPFLG 


MOV 


#LSTSL, R2 


CMPB 


R2, CORUSR 


BEQ 


12* 


MOV 


#KILEMT, RO 


MOV 


R2, 4<R0) 


EMT 


375 


SUB 


#2, R2 


BNE 


.! 1* 



WAS SYSTEM IDLE? 

BR IF YES 

ASK FOR CONFIRMATION 

ACCEPT INPUT LINE 

DID HE SAY YES? 

BR IF YES 

LOWER-CASE 'Y' 

; EAT REST OF LINE 

i GO GET NEXT COMMAND 



SET FLAG SAYING SYSTEM IS BEING STOPPED 

GET # OF LAST LINE 

IS THIS OUR LINE? 

BR IF YES 

POINT TO KILL EMT ARG BLOCK 

SET # OF LINE TO KILL 

KILL THE LINE 

DO NEXT LINE 



Nou.1 enter logoff processing for our line. 
It will jump to DOSTOP after it finishes. 
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BOOT and *STOP commaniis 

58 013402 000167 176040 JMP CMDOFF ; LOG OFF OUR LINE 



t 
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•^SHUTDOWN command 






.1 

2 
3 
4 

5 



. £5BTTL $SHUTD(3WN ( ommand 



Do a gentle shutdown of BifBtem. Don't force jobs off but don't let 
anu loci on either. 



6 013406 004767 OOOOOOS CMDSHT; CALL 

7 013412 112767 177777 OOOOOOG MOVE 
S 013420 00 5067 OOOOOOG CLR 
9 013424 000167 OOOOOOG JhP 

10 000001 . END 
Errors detected: 



CKPRIV 
#-1, STPFLG 
BOTDEV 
RDCMD 



; USER MUST HAVE OPERATOR PRIV 

i SAY SYSTEM SHUTDOWN TAKING PLACE 

i REBOOT FROM SYSTEM DISK 



**■«■ Assembler stat i sti f k 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 







12080 Words 

17920 Words 

RT -1 J 



< 48 Pages) 

< 70 Paties) 



Elapsed time: 00:01:40.48 

DK: TSKM2A, LP: TSKM2A=DK: TSKM2A. MAC/C/N: SYM 



TeKM2A 


— - K e I) b a r d c g mniB n d 


rout MAC 


1 Cross r 


e f e r e n c e 


table U;REF 


V05. 04 ) 


1 flSTLG 


1-&S 






*CARUP 


1-73 






*CCLRN 


i-7'4 






1 *CFABT 


1-91 


7„j7 


7-34 


1 *CFALL 


1-98 






*CFCCL 


1-98 






i *CFDCC 


1-98 






*CFOPN 


l-lv04 


42-136 




*CFSOT 


1-96 






i *CHACT 


1-66 






*CLTST 


1-83 






1 *CTRLC 


1-89 






i *CTRLD 


1-133 






-^CTRLO 


1-49 






*CTRLS 


1-79 


42-B1 




4 -^DeKMN 


1-72 






UDEAD 


1-136 






*DEBUG 


1-134 






i *DEFER 


1-110 






«DETCH 


1-77 


33-36 


33-124 


*DIBOL 


1-68 






i *DILUP 


1-93 


33-97 


33-122 


*D1SCN 


1-78 






^SDOOFF 


1-100 


42-5H 




i *DUPRN 


1-95 






*ECHa 


1-97 






*EMTTR 


1-82 






C *FORM 


1-96 






*FORMO 


1-98 






*HARD 


1-136 






C *H1TTY 


1-67 






$INCOR 


1-113 






*INDDF 


1-135 






1 *INDRN 


1-135 






*INIT 


1-136 






*INKMN 


1-89 


33- 1 o:;* 


33-132 


i $KED 


1-113 






*K1NIT 


1-57 






*LC 


1-97 






i *LOFCF 


1-181 


42-23 


42-57 


1 *NOABT 


1-184 


42-1 6B 


42-196 


*NOIN 


1-67 


42-21 


42-31 


i *NOINT 


1-182 






*NDWIN 


1-3S 






$NDWTT 


1-67 






< *PAGE 


1-97 






*PHDNE 


1-136 






liPRGLK 


1-75 


42-. 17 




i *QTSET 


1-118 






*QUIET 


1-111 


7-;'! 




*RNIOP 


1-183 






i *RNMLK 


1~1S3 






*SCCA 


1-39 


7 -J 5 




«SCOPE 


1-97 






i «SETRW 


1-97 






*SGALL 


1-110 







I 
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42-39 



I 
< 
( 
I 
I 
< 

i 

i 

i 

€ 

i 

t 

< 

4 

t 
4 
4 
4 
4 
4 
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Cross reference 


table <CREF 


V05. 04 ) 






















liSGHID 


1-109 


























*SGIIO 


1-109 


























*SGQO 


1-90 


























*SGQ1 


1-109 


























*SGQ1A 


1-109 


























*SGQ1B 


1-109 


























*SGQ1C 


1-109 


























*SGQ2 


1-109 


























*SGQ3 


1-90 


























*SLLET 


1-180 


























*SLON 


1-180 


























*SLTTY 


i-lSO 


























*SNWTT 


1-134 


























•*SPLJB 


1-79 


























*STSNG 


1-66 


























*SUCF 


1-99 


35-;^ 
























«1AB 


1-96 


























*TAPE 


1-132 


























$TECO 


l~ilS 


























*TRNSP 


1-42 


























*TTGAG 


1-104 


33-:l0.1 


33-12B 






















*UCLCF 


1-105 


























*UCLCL 


1-107 


























*UCLCM 


1-107 


























$UCLRN 


1-106 


























*UKMOi\l 


1-73 


























*VNOTT 


1-48 


42-y^^ 
























*WILD 


1-119 


























... VI 


7-23 


7-;:.'7 


7-50 


8-63 


11-71 


12-53 


14 16 


14-24 


14-37 


22-50 


23-91 


25-54 






28-47 


30-33 


31-11 


31-18 


31-18 


31-18 


31-20 


31-21 


31-21 


31-27 


31-27 


31-32 






31-32 


31-34 


31-34 


31-38 


31-38 


31-39 


31-39 


32-6 


32-10 


32-12 


32-16 


32-20 






32-22 


32-27 


32-33 


32-35 


32-39 


32-41 


32-42 


33-99 


33-107 


37-39 


37-41 


37-49 






38-11 


38-1.1. 


38-11 


38-13 


38- 1 3 


38-26 


38-28 


42-47 


42-47 


42-47 


42-54 


42-54 






42-86 


42-B9 


42-91 


42-113 


42-113 


42-113 


42-115 


42-120 


42-120 


42-147 


42-147 


42-148 






42-148 


42-.tV3 


43-40 


43-42 


43-44 


43-48 


46-23 


46-28 


46-33 










. . . V2 


23-91 


23-91 


23-9 1# 


23-9 1# 


31-18 


31-18 


31~18# 


31-1S# 


31-21 


31-21# 


31-27 


31-27 






31-27# 


3 1 ~27# 


31-32 


31-32 


3i-32# 


31-32# 


31-34 


31-34 


31-34# 


31-34# 


31-38 


31-38# 






31-39 


31-39# 


38-11 


38-11 


38-1 1# 


38-1 1# 


38-13 


3S~13# 


42-47 


42-47 


42-47* 


42-47# 






42-54 


42-54 


42-54# 


42-54# 


42-113 


42-113 


42-1 13# 


42-1 13# 


42-120 


42-120 


42-120# 


42-120# 






42-147 


42-147 


42-1 47« 


42-1 47# 


42-148 


42-1 48# 
















ABRTCF 


1-143 


42-38 
























ACBDFS 


35-53 


35-67 


35-102« 






















ACBDSW 


35-87 


35-1 19# 
























ACRDEC 


1-151 


28-21 


30-19 


31-84 


34-52 


37-21 


39-14 


39-39 


40-14 


40-22 


40-33 


45-24 




ACRFIL 


1-150 


18-;JL* 


23-34 


3B-9 




















ACRFN 


1-143 


























AC R OCT 


1-153 


28-11 


28-15 






















AD**S2 


1-52 


























AD«DVU 


1-52 


























AD*JOB 


1-52 


























AF*BYA 


1-65 


5-6 
























AF*CCA 


1 -39 


5- ,19 
























AF*DBG 


1-43 


5-S:< 
























AF*DUP 


1-40 


5-7 
























AF*HIE 


1-182 


5-'y 
























AF*IND 


1-40 


5-10 























I 
i 
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AF$IOP 


1-183 


5-11 


5-12 












AF*MEM 


1-65 


5 -.14 














AF*NOI 


1-182 


5-, It. 














AF*NOW 


1-182 


5 -J 6 














AF*iMPW 


1-39 


5-17 














AF*PLK 


1 -43 


5-13 














AF-$SCA 


1-68 


5-2 J 














AF*SET 


1-40 


5-20 














AF^TPO 


1-42 


5~r'2 














AF^UCL 


1-40 


5-23 














AFCF 


1-39 
















ALCIDV 


4-6# 


11-11+;- 


1 1 -43 


11-45* 


11 


•86 


12-5* 


12-31* 


ALCDEV 


1-28 


ll~39ii- 


12-43M- 


12-63* 


22- 


-41* 


26-38* 


26 -68 


ALDBLK 


1-166 


31~17fs- 


31-18 












ALDEMT 


1-76 


11-49 














ALDEX 


1-165 


1-166 


31-11 


31-11 










ALFN 


1-177 


31-27 














AMBOPT 


1-151 


1-.164 


29-65 












AR**SZ 


1-180 


42-129 














AR$CNT 


1-179 


42-140* 














AR*CON 


1-179 


42-.I 3ti-K- 














AR$CPH 


1-179 


42-:l43* 


42-1 44 «• 












AR$CPL 


1-179 


42--142* 














AR*DMY 


1-180 
















AR*PRG 


1-179 


42~:I27 














AR*PRJ 


1-179 


42-.! 2b 














AR*UNM 


1-179 
















ARNRPB 


1-180 


42-124 














ASCIS 


8-53 


S~62# 














ASCSOK 


8-65 


8-8 14f 














ASDELM 


8-17 


9-7# 














ASDEX 


1-1 48 


8-63 














ASF ID 


8-36 


S-57# 














ASKLNM 


1-147 


s-a«- 


8-52* 


8 85 










ASNEND 


1-95 


10-14 


10-28 


42-110 










ASNHDl 


1-160 
















ASNHD2 


1-160 
















ASNOVF 


1-148 


1-173 


8-97 












ASNSRC 


1-122 


S-82 


8-90 


8-94 


25- 


-31 


29-21 


35-45 


ASNTBL 


1-93 


10-12 


10-22 


42-108 










ASSMPL 


8~42# 
















AT**SZ 


1-94 


10-27 














A7*DEV 


1-94 


8-84 


8-105* 


10-26* 


25- 


-33 


29-23 


35-47 


AT*EXT 


1-94 


S-.iOB* 














AT*FIL 


1-94 


S-.106-"- 


S -107* 












AT*LOG 


1-94 


8-102* 


10-23 


10-25* 










AT$SI2 


1-94 


S-103* 














AUTHFN 


1-170 


42-113 














BADCMD 


1-147 


8- J 5 


29-12 












BADDAT 


39-16 


39-13 


39-22 


39-33 


39- 


-37 


39-41 


39-43 


BADPMT 


1-154 
















BADPRI 


1-154 
















BADSAV 


l--i47 
















BADTIM 


40--16 


40 --20 


40 24 


40-35 


40- 


-49# 






BASMAP 


1 127 
















BDFNAM 


1-150 


18-99 


23-36 


24-17 


33- 


-37 







12-61 



39-49# 
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BDLGOP 


1-150 












BDLIN 


1-168 


33-^4 


37-25 


4 5 •-29 






BELL 


2-7# 


33-49 










BLANK 


2~6# 


33-6^' 










BLKO 


1-146 


31-32 


31-34 


42-120 


42-123 


42- .147 


BLKWDS 


2-10# 












BOTDEV 


1-8S 


46-10* 


46-1 Sti- 


47-8# 






BOTUNI 


1-88 












C. CSW 


1-10.1 


27-27 










C. DEVQ 


1-101 


27-31 










C. SBLK 


1-101 












CALUCL 


1-159 












CASCBR 


i~S4 


41-3;- 










CASCUP 


1-84 


4i-3;:» 










CASTER 


1-84 


41-3.! 










CASTBW 


1-84 


41-::f4 










CASTRO 


1-85 


41-30 










CASTWO 


1-85 


41-33 










CCLNAM 


1-174 












CCLSAV 


1-81 


27-59 










CCSPRV 


1-181 












CD**SZ 


1-102 


26-115 










CD**UB 


1-102 












CD$BAS 


1-102 


26-96 










CDfDVU 


1-102 


26-94 










CD*JOB 


1-102 












CD* NAM 


1-102 












CD$TOP 


1-118 












CDBUF 


1 -47 


26-94 


26-96 








CDC4ET 


1-47 


26-93 










CF^IND 


1-137 












CF$QUT 


1-137 












CFABLV 


i-13S 












CFBLK 


1-11.1 












CFBUF 


1-81 


42-54 










CFCHAN 


1-110 


42-47 


42-47 


42-54 


42-54 




CFEND 


1-81 












CFHOLD 


1-117 












CFIND 


1-100 












CFLFL4 


1-105 












CFNEST 


1-103 












CFPNT 


1-111 


7-H 










CFSEND 


1-104 












CFSP 


l-lO'l 












CFSPND 


1-116 


7-fJ5:- 


7-35 


7~37«- 






CFSQEZ 


1-42 












CFSTK 


1-57 












CFSTOP 


1 -4 1 


7-10 










CFSTRT 


1-41 


7-36 










CFSTS 


1-137 












CHAIN 


1 -89 












CHKALC 


1-66 


26-69 










CHKDEV 


1-174 


13-30 


18-53 


26-75 


27-18 




CHKDLM 


1-164 


29-49 


35-63 


35-91 






CHKMNT 


1-149 


25-50 


26-48 








CHKMTX 


1-149 


25-52 


26-54 


26-106 







43-48 43-53 44 --7 
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CIMDAT 


1-126 








CINFLG 


1-48 








CKACOJ 


1-44 


45-34 






CKOFSP 


42-25 


43-19« 






CKPRIV 


1-151 


31-5 


31- 


■44 




40-12 


46-5 


47- 


-6 


CKSYDV 


26-42 


27-l,Nf 






CKSYPV 


1 -44 


1 6-4 


17- 


-4 


CLDEVX 


1-124 








CLOT I R 


1-53 








CLRPRV 


1-46 


16-6 






CLSFSP 


1-85 








CLTOTL 


1-85 








CMDACC 


1-32 


35-5^i 


35- 


-114 


CMDALC 


1-31 


11 -7# 






CMDASN 


1 30 


8-741 






CMDBOT 


1-33 


46-b# 






CMDBUF 


1-142 


1-159 


7- 


"23 


CMDCCL 


1-174 


26-127 






CMDDAT 


1 -29 


39-54} 






CMDDET 


1-32 


3 7-5# 






ChlDDLC 


1-31 


12-5# 






CMDDMT 


1-30 


25-5# 






CMDDSN 


1 -27 


10- 5# 






CMDDSP 


1-30 


7-44# 


7- 


-45 


CMDFMT 


1-29 


26-1 0* 






CMDFRM 


1-27 


32-79^} 






CMDHD 


1-26 








CMDINI 


1-32 


26-8# 






CMDINS 


1-28 


15-5# 






CMDKIL 


1-31 


45-5# 






CMDMNT 


1 -30 


22-'J# 






CMDMON 


1 -30 


2S-7# 






CMDOFF 


1-26 


42-5# 


46- 


"58 


CMDPAU 


1-32 


7-3*1 






CMDREM 


1-31 


13~0# 






CMDRSM 


1-28 


45-19# 






CMDRST 


1-29 


41-6=?! 






CMDRSY 


1-29 








CMDSHT 


1-33 


47~6# 






CMDSND 


1-29 


33-2 1# 






CMDSPN 


1-28 


45-1.2# 






CMDSPO 


1-31 


29-3^S 






CMDSQ2 


1-32 


26~94J 






CMDT.IM 


1-30 


40-5# 






CMDYEL 


1 -28 


33-6# 






COAD 


1-165 


1 - .1 ,'->6 


31' 


"20 


COAF 


1-178 


42-115 






COAL 


1-165 


1 - 1 <:>6 


31- 


-S 


COLOO 


1 - 1 59 








CONFIG 


1 .._99 


40-40 






CORUSR 


1 -49 


33-50 


33- 


" 1 20 


CPUAH 


1-159 


42-K>0<i' 


42" 


-144 


CPUAL 


1-159 


42-,i0:! a- 


42- 


-142 


CR 


2-5# 


33-47 


33- 


-84 


CRLF 


1-154 


11-7! 


12 


-53 



31-50 31-78 31-90 32-48 32-54 32-61 32-70 33-6 39-12 
4 1 6 



34-40 35-113 42-5 42-179 46-47 



22-50 2B-47 32-35 33-28 42-86 
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CSABT 


30-32# 


3G"3'1 








CSCD 


33-33 


33-36^i^ 








CSEXIT 


33-23 


33-35^1 








CSGTOP 


29-37 


29-4e^H 


29-50 






CSHALC 


1-88 










CSHDEV 


1-93 


26-71 








CSHDVN 


1-93 


26-116 








CSHHD 


1-141 










CSHMSO 


1-lSl 










CSHSIZ 


1-128 










CSIERR 


8-67# 










CSIMSl 


1-153 


2S-l;5 








CSIMS2 


1-151 


35-102 








CSIMS4 


1-173 


23-B2 








CSSCAN 


33-29 


33-4 31t 








CTRLTT 


1-87 


33- ,14 


34-35 






CURMTX 


1-164 










CURPRM 


1-115 










CVDVNM 


l-l&A 










CVTBUF 


42-122 


42-146 


44- 5# 






CVTDEV 


35-52 


36-J34r 








CVTTAB 


1-142 


s-y 


10-5 


11-12 






32-79 


35-10 


37-5 


39-5 




CVTUC 


1-141 


12-13 


15-6 


29-9 




CW*50H 
CXTBAS 
CXTPAG 


1-99 
1-92 
1-70 


40-40 








CXTWDS 


1-92 










DAJMP 


10-16# 


10-30 








DATT.IM 


1 -27 










DCCRD 


1 - 1 22 


4 1 -9 1:- 








DCCWR 


1-122 


41-1 l+r 








DCTRD 


1-122 


41-Bt:- 








DCTWR 


1-122 


41--10):- 








DEADEV 


1-149 


25-77 








DEASl 


10-7 


10-20# 








DELEMT 


4-24# 


30-20i=- 


30-21 






DELSPC 


1-163 


28-10 








DETARG 


i-178 


37-28 


37•-30^^ 


30-17 




DETCHK 


5-48 


37-36# 








DETGD 


37-13 


38-6# 








DETHD 


1-173 


5-47t! 


37-16 






DETIDL 


37-38 


37-41^fi 


37-48 






DETJMP 


37-40 


37-424t 


37-50 


38-29 




DETKIL 


5-49 


37~46# 








DETTXT 


1-157 










DEVHDl 


1-160 










DEVIDL 


i -• 1 6 5 


l--16;i 


1-166 


30 33 




DEVUNT 


1-152 










DFJMEM 


1-57 










DIVIDE 


1 - 1 58 


42-97 








DIVSOR 


1 •■- 1 7 1 










DviABHS 


i 1 6^^^ 


:J7"-4V 








DKSAV 


1 14;.' 










DLCEMT 


1 -26 


12-44 


12 64 






DLMSG 


1 - 1 6S' 


38-26 
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12-12 


13-8 


1 5-5 


40-5 


45-23 


46-6 


32-80 







22-8 



>5-5 



26-20 



28-9 



29-8 
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DLTXT 

DMT ALL 

DMTARG 

DMTLGQ 

DMTNLG 

DMTNLQ 

DMTQHD 

DMTSUB 

DMYDEV 

DOASGN 

DOMNT 

DOSTOP 

DZTXT 

EDIT 

EDTFIL 

EM$ALC 

EM*ATF 

EH*CSE 

EMfDAA 

EM*DET 

EM*DIU 

EM«DNR 

EMUFNI 

EM^FOE 

EM* I AD 

EMflTF 

EM*LDI 

EM*MPV 

EM*NAD 

EM*NAL 

EM*NFW 

EM^NID 

EM*NLD 

EM*NLN 

EM«NPD 

EM*NSF 

EM^NUC 

EM«NUK 

EM* OLD 

EM*SND 

EM*SSY 

EM*UAR 

EM*UER 

ERRLOC 

ERRSEV 

FF 

FILNAM 

FIXPRV 
FKILL 



169 
i4£^ 



4-17# 
5-39 

5-37# 
i-i74 
1-43 



1-- 



73 

ill 



170 

176 



FORCED 
FPRINT 



1 

1 
1 

1--162 
1-41 
1--63 
1-42 
1 -66 
1-56 
1 '-6h 
1-41 
1--46 
1 -97 
1-63 
1-46 
J -43 
1-56 
1-45 
1 -43 
1-41 
1 -64 
1-63 
1-43 
1 -63 
1 -64 
1 -39 
1-74 
1 -64 
1-41 
1 -64 
1-61 
1-61 
1-55 
1-119 
2-9# 
1-143 
23-63 
1-43 
1-143 
18-57 
26- 1 6 

38-41 
1 -40 

1-143 



5-40 
25-9 K- 

5-4 i 
25-16 
26-111 
29-34 
1 1 -{-ly 
24-<^# 
42-199 



I 1 -22 

I I -66 
13-46 
11~5V 
37-3 
U-69 
26-33 
l7-.t(! 
38-4 1 

1-63 
19-19 
i 8-57 



.io ■■- 1 c> 
30-24 
23-0 
34-19 

35-9 



42-52 
33-4 5 
26-44 
14-30 
14-42 
3-67 



1 - i 44 
38-11 

8-70 
18-58 

26-33 
33-45 
39-50 
18-47 

11-59 



25-59 
25-8741 
25-47 
25-S6*J 



23-106 



12-S 



12-51 



1 1 -63 



11-56 



16 



S -97 
18-99 
26-44 
34-19 
40-50 
29-29 
1 1 -69 



-86*- 



12-57 



IS -58 



•48 



18-34 



11 •22 
19-19 
26—56 
34 -37 

45-29 

12-51 



22 


■45 


24- 


-}'J 


18- 


-38^& 


18- 


-A3 


11- 


-•63 


11- 


-66 


22- 


-■21 


22- 


-28 


28- 


-30 


28- 


-42 


35- 


■9 


35- 


-17 



2B~40 



18-52 



18-69 



12-8 


12-26 


23-8 


23-15 


23-55 


29-43 


35-119 


37-8 



14-30 



14-42 



22-48 



24-17 



18-73 



12-57 
23-36 
29-65 
37-19 



28-44 



23-40 



13-46 
23-50 
29-66 
37-25 



42-52 



23-45 



15-27 
23-82 
30-24 
38-33 



23-54 



17-10 
25-24 
31-8 
38-37 
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-8 



FSTDL 


1-77 


37 23 








FSTIOL 


1-50 


1-70 








GAGMSe 


1-168 


33-107 








GENMON 


1-65 


42-ir'A 








GENTOP 


1-8S 










GRTl 


1 - 1 29 










GTRD50 


1-148 


10-20 


i 1 -30 


11 


■84 




35-35 


35-65 


35-76 


39 


-24 


HANBSY 


1-153 










HANCHN 


1-50 










HANIDX 


1-152 










HI MAP 


1-127 










HIPRI 


1-154 










HNBUF 


1-152 










HUPARG 


1-173 










lATTRB 


4-13# 


16-5* 


16-35 


21 


-■31i 


II**SZ 


1-182 


18-78 


19-13 






II*FLG 


1-183 


16-35i: 








II*NAM 


1-183 


16-21 


17-14# 


IS- 


•66 


II*NPV 


1-45 


1-.I83 


16-39 






IlfPRV 


1-45 


1 - i 3::) 


16-37 






IIBUF 


1-47 


16-21 


16-35^ 


16- 


-37 


ILLCMD 


1-149 


1 5-;,r/ 


22-28 


25 


•24 


.ILSW2 


1 71 










IN*ACT 


1-135 










IN$CMD 


1--13!3 










IN*CNT 


1-135 










INDABT 


1-143 


42-;. 1? 








INDACT 


1-145 










INDERR 


1-91 


39-4 V,:. 


40-49 K- 






INDSAV 


1-135 


27-60 








INDSTA 


1-91 










INDTSV 


1 -38 


27-61 








INFOMT 


1-149 


25-54 








INGADR 


1 -47 


18-63!^ 


19-8^^ 






INGEMT 


1-47 


18-64 


19-9 






INPADR 


1 -46 


20-7 $;• 








INPEMT 


1 -46 


20-B 








INSADD 


1 5- 1 4 


16-4*t 








INSATR 


5-6 


5-7 


5-8 


5 


-9 




5-19 


5-20 


5-21 


5 


-22 


INSDEL 


15-16 


IS-IC! 


17-4# 






INSFRE 


16-17 


19-7^jl 








INSHD 


5 5# 


21-1 4 








INSNAM 


16-11 


1 7-S 


18-1345 






INSOPT 


16-7 


16-30 


21-lO^i 






INSPUT 


16-4S 


17-1;/ 


20-7# 






INSSRC 


1-40 










INSTBL 


1--1S2 


18-62 


19-7 






IWSTBW 


1 ■- 1 82 


i 8-7 'r 


19-14 






INVDAT 


1 - 1 78 


39-50 








INVDEV 


1-177 


~ir,i„.,v.{ 








INVEC 


1-136 










INVLDM 


1-173 


23-50 








INVLDN 


1-150 


23-15 








INVOPT 


1-143 


1 - 1 ''i V 


1-164 


12 


•26 



12-33 
46-14 



13-18 



15-11 



-29 



?3-103 



18 



26-34 



29-16 



18-71 



16-39 



lS-^73 



17-,14-K- 



19-11 



1 8-66 



18-71 



18-73 



19-11 



5-10 
5-23 



5-11 
21-31*1 



5-12 



5-13 



5-14 



5-15 



5-16 



5-17 



;::>;:>.- 



28-30 



29-66 



35-119 



37-19 



1 
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INVTIM 


1-169 


40-50 




lOABFL 


1--49 






ITRMTP 


1-137 






JCXPGS 


1-127 






JCXSMS 


1-176 






JOB COM 


4 5-6 


45-.t3 


45-23^1 


JS*OFF 


1-65 


42-1 ;•; 7 




viSTKND 


1 -87 






JSWLOC 


1-55 






K52 


1-68 






KBMSG 


1-1 5S 






KBTX 


i-i6;:> 






KCSIBF 


1-147 


a-63 


8-81 


KCSIMS 


1~14S 


g_..',9 




KDOCIN 


l-2c 






KFD 


1-6S 






KILEMT 


1-170 


42-lBl 


45-5 


KL3CLF? 


1-75 






KL4CLR 


1-112 






KMNBAB 


1-133 






KMNCHIM 


1-81 


2 7-;.fi 




KMNNAH 


1 - 1 '/4 






KMPRMT 


i--123 






L 


5-6 


5-/.>^ii 


5-7 




5-12 


5-12« 


5-13 




5-18 


5~i8-f^ 


5-19 




5-30 


5~30# 


5-31 




5-48 


5-4 3« 


5-49 




6-8 


6-B# 


6-9 




6-14 


6-l''i# 


6-15 


LAFSIZ 


1-71 






LBSPRI 


1-138 






LCDTYP 


1-54 






LCLUNT 


1-50 






LCOL 


1-1 IB 






LCONTM 


1 -79 


42-.! 36 




LCPUHI 


1-79 


42-94 




LCPULO 


1-79 


42-95 




LD*RON 


1-107 


23-/4 




LDBASE 


1-108 


26-35 




LDCLEN 


1-62 


23-116 


25-81 


LDDEVN 


23-13 


23-46 


24~35*f 


LDDEVX 


1-110 


18-55 


26-66 


LDFLAG 


1-108 


23-7;,!;- 




LDMNT 


1-59 


23-{i0 




LDNAM 


I- 147 






LDNAME 


1-lOB 


23-62 


23-89 


LDOPHD 


1-151"; 






LDPDEV 


i-ios 


25-72 tJ 


26 ■-84 


LDSIZE 


1-108 


26-B7 




LF 


2-4# 


7-;;?9 


33-48 


LF*OPN 


1-140 






LF*WRT 


1-140 


42-70 




LFWLIH 


1-71 






LICTXT 


1-129 






LINBUF 


1-69 







I 
t 
I 
I 

S-84^^ 8-87* 8-89 8-102 8-103 8-104 I 



46-49 



,:iiy-/ii 



25-75* 



i 

I 

5-7# 5 8 5~8# 5-9 5-9# 5-10 5~10# 5-11 5-1 1# 

5-13# 5-14 5-14# 5-15 5-15# 5-16 5~16# 5-17 5-17# ^ 

5-19=11 5 20 5~20# 5-21 5-2 1# 5-22 5~22# 5-23 5-23# 

5-31# 5-38 5-38# 5-39 5-39# 5-40 5-40# 5-41 5-41# 

5~49# 5-56 5~56# 5-57 5-57# 5-64 5-64# 6-7 6-7# < 

6-9# 6-10 6~10# 6-11 6-1 1# 6-12 6-12# 6-13 6-13# 

6-1 5# 6-16 6-16# 6-17 6-1741 

i 

i 
I 
I 

4 

I 
i 



33-85 42-91 46-39 



c 
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L INCUR 


1-71 












LJ.NFRE 


1-169 


37-4 f 










LINIR 


1-53 












LIMNXT 


1-69 












LINRTS 


1-53 












LITIME 


1-90 












LJSW 


1-87 












LMONHD 


1-65 












LMXLN 


1-136 












LMXPRM 


1 - 1 37 












LNBLKS 


1--92 












LNMAP 


1-99 












LNPRIM 


1-99 


33-3^' 


33-51 


33-121 


42 


-80 


LNSBLK 


1-93 












LNSPAC 


1-103 












LNUMER 


33-31 


33-34# 


33-37 


33-91 






LOCKTX 


1-158 












LOFSPC 


1-96 


42-43 


42-47 


42-51* 


42 


-59* 


LOGASN 


1-150 


18-44 


23-41 








LOGBAS 


1-117 


i-J19 










LOGBLK 


1-139 












LOCBUF 


1-139 












LOeCHK 


1--118 


23-21 


25-43 


26-123 






LOGCHN 


1 - 1 39 












LOGCLS 


1-154 


42-.K7;> 










LOGDVU 


1-117 


1-J JV 










LOGFLG 


1-139 


42-V0t.=- 










LOGPTR 


1-139 












LOMAP 


1-127 












LOUT I R 


1-53 












LPARNT 


1-57 


34-4 J 


34-43 








LPRI 


1-138 












LPROG 


1-73 


42-119 


42-20jlfi- 








LPROJ 


1-78 


42-105 


42-200*- 








LRBFIL 


1-100 












LSCCA 


1-96 












LSECPT 


1-82 


43-2i» 










LSI ACT 


1-69 












LSTATE 


1-125 












LSTDL 


1-77 


37-26 


42-82 


42-171 






LSTHL 


1-50 












LSTIOL 


1-50 












LSTPL 


1-120 


33-119 


42-15 


42-169 






LSTPRM 


1-116 












LSTSL 


1-125 


33-30 


42-178 


45-27 


46- 


-46 


LSTSPL 


1-52 


32-43 










LSUCF 


1-74 












LSW 


1-49 


33-36 


33-97 


33-122 


33- 


■124 


LSWU 


1-38 












LSW2 


1-89 












LSW2S 


1-95 












L8W3 


1-95 


42-21 


42-31 «• 


42-39* 


42- 


■81* 


LSW4 


1-112 


7-21 


33-103 


33-132 


42- 


-56* 


LSW5 


1-75 


7-15 


42-19 








LSW6 


1 - 1 34 


7-17* 


7-34* 








L3W7 


1-137 


33-101 


33-128 









■58* 



42-78 
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42-57* 42-168* 42-1 9i^«- 



LBW8 


1-109 






LSW9 


1--73 


35-5 


42-23 


LTSCMD 


1-103 






LUWAME 


1-78 


33-17/ 




LWINDO 


1-38 


42-B4 




MAXALC 


1-51 






MAXASN 


i--91 






MAXAVL 


1 •■•■;! 52 






MAX MEM 


1-55 






MAXMTX 


1 - J 64 






MAXPRI 


1-55 


1 - .t iJii 




MAX SEC 


1-82 


43 26 




MHNSIZ 


i - B . j 






MHMSHS 


i-84 






MINT I M 


1-82 


42-135 




MISSEQ 


l-iS3 






MNBASE 


1-163 


2S- 12^^ 




MNBPC 


1-162 


28-Ot;- 


28-22* 


MNFLGS 


1-162 


23-7 !;■ 


28-31* 


MNTARG 


1-173 


23-110 


26-61 


MMTCSH 


22-58 


23-99 


23-1 KH) 


MNTDEV 


1-148 


22- 34i^ 


22-41 


MNTFUL 


1 - 1 50 


24-15 




MMTLD 


22-57 


23-6^H 




MN'iOP 


1-163 


28-lt.» 




MNTTXT 


1--17?; 






MOMAR 1 


l-i63 


2S-37 




M0iMAR2 


1 - :i 63 


2S-49 




MONHD 


1-163 


5-55# 


28-27 


MONVEC 


1 - :i. 38 






MS(-)BUF 


1-168 


33-46 




MSGEND 


1-168 


33-3 J 




MTOPHD 


1-149 


5-29t 


22-18 


MUL.32 


1-178 


40-;>3 


40-43 


MXvJADR 


1-5S 






MXvJMEM 


1-57 






MXJPRI 


1-138 






MXPRMT 


1-123 






MXVEC 


1 - 1 36 






NAMTOP 


1 - 1 29 






NARGS 


5-5# 


5-6 


5-6 




5-J 1 


5-12 


5-12 




5-17 


5-18 


5- IS 




''■^ ... '■! '5 


5-291f 


5-30 




5--^0 


5 4,i 


5-41 




5-57 


5-63*i 


5-64 




6-10 


6-11 


6-11 




6-lo 


6-.i7 


6 17 


MAT XT 


1-156 






NEDCHR 


1-53 






NEWJSW 


1-87 






NFRESB 


1-114 


32 •• .1 3 




NIMTXT 


1 - 1 56 






NLINES 


1-101 






NMSGBF 


1-184 


33 1 .i-'l 


33-140 


MOCIN 


t-147 







?0 23-105 25-38* 25-42 25-49 25-65 25-76 26-36* 



42-99 



5-7 5 7 5-8 5-8 5-9 5-9 5~10 5-10 5-11 

5-13 5-13 5-14 5 14 5-15 5-15 5-16 5-16 5-17 

5-19 5-19 5-20 5-20 5-21 5-21 5-22 5-22 5-23 

5-30 5-31 5-31 5-37# 5-38 5-38 5-39 5-39 5-40 

5-47# 5-48 5-48 5-49 5-49 5-55# 5-56 5-56 5-57 

5-64 6 6# 6-7 6-7 6-8 6-8 6-9 6-9 6-10 

6-12 6-12 6-13 6 13 6-14 6-14 6-15 6-15 6-16 



I 
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MOD AT 1- 16:1 C 

NOFIL 1-159 i-.lo/ 3P-39 

NDFLAG 1-149 22-.ii:'t;- 22-22*!- 23-72 

NOFRDL 1-178 3B~-n3 | 

NOIND 1-153 

NOLDMT 1-161 

NONEMS 1-161 I 

NOOPTT 1-167 33-16 34-37 

NOPMGN 1-163 a8--42 

NDFRG 1-143 1--J47 < 

NOSTRT l--i46 

NOTAVL 1-162 

NOTIM 42 106 42-116 42-1524? ( 

NOT ON 1-168 33-99 

NO] XT l-iS6 

NOViDC 1-160 f 

NSWPMS 1-164 

NUCHN 1-100 

NUMDEV 1-130 36-4 1> C 

NUMON 1-71 46-21 

NUHTBi i--16S 33-;>3 

OCTFIX 1-156 i 

OCTPRT 1-176 

ODTBAS 1-133 

OF$*SZ i-132 35-20 35-96 4 

OF*DEV 1-131 35-30K- 35-54* 35--105* 

OF*FIL. 1-131 35-18 35-27* 35-28* 35-29* 35-70* 35-71* 35-77* 35-104* 

OF$FLG 1-131 35~BGi:- i 

OF*UNT 1-131 35-31* 35-55* 35-106* 

OFFEMT 1-170 42 r-OI' 

OFFHD 5-63tf 42-10 

OFFNWF 4-lS# 42-9* 42-17 43-5* 

OFFNWN 5-64 43- 5« 

OKFEND 1-83 35-15 

OKFILE 1-83 35-11 

OPRCMD 1-31 33-14# 

OPTLST 1-46 21-15 25-17 42-11 

OT«RON 1-132 35-80 

OTHRON 1-172 46-23 

OTRMNT 1-174 26-56 

OVRCOR 1-146 

PO*ALC 1-44 ll-;'0 12-6 

PO*BYP 1-44 26- J 4 

PO$DBG 1-45 

PO$DET 1-56 37-6 

PO^LOK l-'7l 

PO^MEM 1-4 4 1-56 

PO*NFW i-44 26- J 4 

POtSND 1-56 



s.:i ..D •- 

PO*SYS 1 --39 35- 

P2*WRL 1-56 

PABLIN J- 119 

PAUMSG 1 142 '^■■ 

PBFEND 1-104 

PFi^IOW 1-134 5- 

PFIiSVS 1-134 5- 



4 
i 

i 
i 
i 
I 
< 
f 
I 
t 
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S-13 



PFCO 


i--i5 


16-:fH 












PFSO 


1-45 


16-36 












PHYMEM 


1-86 














PLOAD 


i-27 














PMBUSY 


1 - 1 63 


28-44 












PNAME 


1-130 


1-152 


36 


-46 








POPCF 


1-153 


4 2 "50 












PRGALL 


1-27 


42-36 












PRGSIZ 


1-69 














PRQTOP 


t -69 














PRIVCO 


1-45 


1 1 -20 


12 


-6 


26-14 


33- 


-•43 


PRiVSO 


1-44 


42-65 












PRMBUF 


1 - 1 1 6 














PRMEMD 


1 - i 1 &■• 














PRMPNT 


1 - 1 1 i) 














PRTBUF 


1-161 














PRTDAT 


1-177 














PRTDC2 


1 - I 58 














PRTDC3 


1 - 1 5S 














PRTDEC 


1-152 


11-70 


12- 


-52 


22-49 


28 


■46 


PRTFIX 


1-155 














PRTFNM 


1 - 1 6 1 














PRTLN 


1 - 1 57 














PRTPCT 


1-171 














PRTR50 


1-177 














PRTSPC 


1-155 














PRTTIM 


1-177 


42-90 












FRTTMD 


l-loC' 














PRTTMV 


1-159 














PRTTOD 


1 - 1 7 / 














PRTTTP 


1 ~1 56 














PRTUMM 


1-157 














PRTWRN 


1-191 


24-15 


33- 


-34 


33-114 


33 


•14 


PRVOPT 


1-47 


5" 1 i'< 












PUSHCF 


1 - 1 44 


42-4 5 












PVNPW 


1-45 


16-40 


42- 


-66 








PVON 


1-75 


42- J 73 












QHDMSl 


1 -64 


32-4 1 












QHDMS2 


1-64 


32-42 












R. GSI2 


1 -60 


14-12ii- 












R. GSTS 


1-61 


14-.t3K- 


14- 


•17 


14-23* 


14- 


•25 


R. NAME 


1-60 


14-1 4 ti 


1 4 - 


-15-tc- 








R 50 ADD 


4-10# 


15-13 












R50BUF 


1-148 


io-;2i 


il 


■30 


11-85 


12- 


-42 




25-29 


26-35 


29- 


-20 


29-23*- 


29- 


•28 




39-25 


46-. 15 












R50C0M 


1 - 96 


38-7 












R50DEL 


4- 1 1 # 


15-15 












R50DIR 


1-144 














R50DK 


1-177 


36-35 












R50DSK 


1-150 


23-32 












R50DUP 


1-14 5 














R50.IND 


1-144 














R50K52 


1-145 














R50KED 


1 145 














RnOKEX 


1-145 















35-7 



37-6 



42-64 



38-27 



43 43 



14-36-ir 




13-23 


1 3-29 


29-36 


35-42 



14-14 
35-47^»t 



14- 
35- 



15 
51 



15- 
35- 



•12 
66 



22-30 
35-71 



23-104 
35-77 
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;24-"35 25-35 

24-37 24-38 24-42 25-37 2b'6a 25-70 

25- -68 



RSOLD 


1 - 1 50 




-3.! 


R SOLDO 


1-148 


22- 


■3;..( 


R50LD7 


1 - 1 50 


24- 


-40 


R50LDG 


1 - 1 54 






R50M0N 


1-178 


39- 


•27 


R50N0 


1-151 






R SOP IP 


1-145 






R50REM 


4"-12# 


15- 


-17 


R50SAV 


1-144 


18- 


-30 


R50SET 


4-7# 






R50SY 


1-144 


36- 


-33 


R50TSX 


1-145 






R50TT 


1-173 






R50UCL 


1-145 






R50UP 


4"-B# 






R50VIR 


1-146 






RDB 


1-124 






RDBEND 


1-124 






RDCMD 


1-142 


"f . . 


■■3B 




23-120 


25- 


-S2 




32-56 


32- 


-65 




39-47 


40- 


-47 


RDERM 


1-146 






REHRDB 


4~.9# 


14" 


-11 


REMRGN 


13-35 


14- 


■7# 


RESDEV 


1-132 


35- 


-25 i 


RJF-MT 


1-176 


45- 


-19 


RNMS 


i ■- i 57 






ROMTXT 


1-162 






RS. CRR 


1-60 


14- 


-.17 


RS. EGR 


1 -60 


14- 


■3S 


RS. GBL 


1 -60 


14- 


■13 


RS. PVT 


i-60 


1 4- 


.1 3 


RSTPRV 


1-61 






RSTVEC 


4 1 - 1 3 


4 1 - 


-23^! 


RT**SZ 


1 - 1 2A 






RT*NAH 


1 -■ i 24 






RUNMS 


1 - 1 7B 




■39 


S*HSWT 


i-Bl 






SCHAIN 


1-110 






SD*BAK 


1-112 


3 1 ■• 


-V6 


SD*DEL 


1-105 


30- 


-31 


SD*FLK 




3 1 - 


•4 \:' 


3D$HLD 


1 - 1 .1 '3 






SD*SNG 


1-114 


32- 


■14 


SD*WFM 


1 - i 06 


31- 


71 


SDBLK 


i-iO? 






SDBU 


l-t 12 


3 1 ^^ 


V-l 


SDBUFl 


!■ -107 






SiDOB 


i - 1 20 


29- 


31 


SDCB ND 


1-120 


2=?- 


•3;;' 


SDCBSZ 


i-125 


29- 


■3f:i 


SDDVU 


1-124 






SDFHD 


1-42 


32- 


•37 


SDFLAG 


1-106 


30- 


3i i 


SDFORM 


1 - 1 06 


31" 


-53 



7-51 S-109 10 16 11-91 12-70 13-50 15-31 16-52 17-19 22-51 

28-48 28-51 30-25 30-32 31-22 31-74 31-86 31-97 32-44 32-50 

32-74 32-92 33-35 33-100 33-108 33-115 33-143 35-14 35-115 37-42 

41-19 42-27 42-60 45-45 46-41 47-9 



35-103«- 42-32* 



14-25 
14 23 



31-51 32-31 

32-49 32 55 

32 '-8 



31-45fi- 31-5i-» 31-7Hi- 31-96-1^ 32-8 32-14 32-31 32-49* 32-55* 

32-24 
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SDNAME 


i-43 


29-34 


29-36 


31 


-17 




SDSFCB 


I-IOD 


30-29 


31-79 


31- 


-91 


32-4 


SDSKIP 


1-112 


31-B5^> 










SEARCH 


1-142 


22-19 


28-28 


29 


-•53 


37-17 


SEGCHN 


i-38 


27-56 










SERFLG 


1-49 


23-25* 


23~2S« 


23- 


-90<* 


23-92it 


SETHD 


1-151 












SFFORM 


1-114 












SFNMBL 


1-11 4 












SHMTHl 


1-160 












SHMTH2 


1-J60 












SHOHD 


1-175 












SHTMSG 


1-170 


42-09 










S:CZEMT 


1-173 












SIZVAL 


1-147 












SJEMT 


1-176 


45-12 










SKPDl 


36~70# 


36-72 


36-74 








SKPD2 


35-97 


36-7 1# 










SKPDLM 


1-37 


11-35 


12-37 








SKPSPC 


1-37 
26-30 


11-13 
34-. 14 


1 1 -26 
34-24 


11- 


-75 


12-14 


SLM.XLN 


i-lSi 












SMONHD 


1-65 












SMR3IZ 


1-128 












SNDALL 


33-92 


33-1 !'.-'# 










SNDCOM 


33-8 


33-22# 










SNDGN 


33-15 


33-30# 










SNDLIN 


33-27 


34-10^l> 










SNDONE 


33-97# 












SOPALC 


1-52 


11-16 










SOP DAT 


1 -54 


39-8 










SOFT I M 


1~5'1 


40-B 










SPACTV 


1-165 


1-166 


32-6 








SPCF 


1-167 


32-22 










SPDLCR 


30-10 


30-29# 










SPFLK 


1-167 


32-33 










SPFUL 


1-167 


32-20 










SPGEMT 


1-167 


32-101* 


32-102 








SPHLEM 


4-30# 


32-62*- 


32-63 








SPLACT 


1-170 


42-189 


46-26 








SPLALN 


6-7 


31-5# 










SPLBAK 


6-8 


31-90# 










SPLBKl 


31-92 


31-94# 










SPLCHN 


1-80 


27-57 










SPLDEL 


6-9 


30 -5# 










SPLFRM 


6-10 


31~50# 










SPLHD 


1-16^1 


6~6# 


29-52 








SPLHLA 


1-155 












SPLHLD 


6-11 


32-6 Hi 










SPLLK 


6-13 


31~44# 










SPLMTl 


31-46 


3i-5;*« 










SPLMUL 


6-14 


32-54# 










SPLND 


i - 1 07 












SPLNHL 


6-12 


32-70*1 










SPLPND 


1 - 1 72 


46-28 










SPLSKP 


6-15 


31-7041 











>8* 25-61 if 42-464* 42-48* 



-23 12-32 13-12 18-19 22-55 25-10 25-21 



f 
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I 

€ 



I 
1 

I 

{ 

i 



SPLSNG 


6-16 


32-''iS^H 




SPLSTA 


6-17 


32-44} 




SPNBB 


31-80 


3i-9:m 




SPNBSY 


30-30 


30--3:.i^\ 


31-93 


SPNHEM 


4-36# 


32-71 K- 


32-72 


SPOLGO 


31-73 


32-100# 




SPSNG 


1-165 


1-167 


32-16 


SPUBUF 


1-58 






SPWFM 


1-165 


1-166 


32-10 


SQ2DEV 


4-5# 


26-37iJ 


26-74 


SRTS.IZ 


1-128 






SRTSMS 


1-172 






SRTTXT 


i-17D 






SSRMAP 


1-175 






STLGCN 


1-27 






STLGHD 


1 •- 1 54 






STPASK 


1-172 


46-33 




STPFLG 


1-eo 


42~{:37 


42-16 


SUB ARC 


1-162 






SUB TXT 


1-175 






SUPCOD 


1-129 






SWPCHM 


1-38 


27-55 




SWPTX 


1 - 1 58 






SXBPNT 


1-5S 






SYFLVC 


27-24 


27-55# 




SYHDl 


1-157 






SYHD2 


1 - 1 57 






SYINDX 


1-130 


36-37 




SYWAME 


1-131 






SYSAV 


1-142 






SYSDAT 


1-126 


39-46 1^ 




SYTIMH 


1-126 


40~45K- 




SYTIML 


1-126 


40-46 K- 




SYUNIT 


1-130 


36-40 




TAB 


2-S# 






TALEMT 


1-76 


22-42 




TBLOVF 


1-151 


35-17 




TECO 


1-68 






TIMSPL 


4-42# 


42-191 




TIMUP 


42-92 


42-105# 




TKISEC 


1-128 


42-96 




TKIVAL 


1-126 






TMf.SAl 


1-37 


43-40 




TM*SA2 


1-37 


43-40 




TM*3A3 


1-37 


43-42 




TM*SA4 


1-37 


43-44 




TMIDLH 


1-62 


41-29 




TMIOH 


1 -62 


41-26 




TMIOWH 


1-59 


41-20 




TMSWPH 


1-62 


41-27 




TMSWTH 


1-62 


41-25 




TMTOTH 


1-59 


1-1 71 


41-23 


TMTOTL 


1-59 


1-171 




TMUSRH 


1-59 


41-24 




TOOLMG 


1-42 






TOTMMS 


1-175 







26 



-45* 47-7* 
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TDTON 1~S0 42" 197 

TXriXT l-.i.£)4 

TRGRET 1-129 

TRMSTR 1-144 

TSKM2A l-5# i-PS 

TSXLN 1-129 

TSXSIT 1-129 

TSXSMS 1-176 

UC*MDC 1-143 

UC$NDC 1-141 

UCHAN 1-98 

UCISPC i-83 

UCLBLK 1-140 

UCLDAT 1-140 

UCLNAM 1-103 

UERSEV 1-119 

UFORM l-e? 32~ai 32-85 32-88 

UFPTRP 1~10!S 

UHIMEM 1-92 

UKMNAM 1-73 

UMSSMS 1 - 1 yj 

UMSYTP 1-77 

UPTMMS 1-170 

USPLCH 1-eo 

USRMMS 1-176 

USRSTK 1-57 

USTART 1-88 

UTRPAD 1-55 

VCORTM 1-123 

VCSHNB 1-82 

• VHIPCT 1-121 

VI MAGE 1-87 

VIWTIO 1-113 

€ VLDSYS 1-181 23-6 

VQUANO 1-120 1-121 

VQUANl 1-121 

V0UAN2 1-121 

VQUAN3 1-120 1-121 

VQUNIA 1-121 

VtSUNlB 1-113 

VQUNIC 1-113 

VSWPFL 1-103 

WILDFL 1-67 

WLDNAM 1-42 2--.iill 18-24 lB-69 18-71 35-26 35-43 35-68 

XAREA 1-143 14-16 14-24 14-37 23-91 31-18 31-27 31-32 31-34 38-11 42-47 42-54 
42-113 42-. 120 42-147 42-191 

YELEMT 1-169 33-7):- 33-2 Ur 33-105 33-109 33-130 33-134 

YELFLG 4-19# 

YESTXT 1-156 
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CMO 
CHI 
CM2 



CMS 
CMS 



. . CM6 

. . CM7 

CLOSE 

CRRO 

CSIGE 

CSISP 

DATE 

El.RG 

ENTER 

EXIT 

FPROT 

GTIM 

GIL IN 

GVAL 

HERR 

LOOKU 

PRINT 



. PURGE 
. PVAL 
. READW 
. RE OPE 
. SAVES 
, SERR 
. SPFUN 
. SRESE 
. TTOUT 
. TTYIN 
. TTYOU 
. TWAIT 
. WRITW 
CMDDEF 



FAB OR T 



FERR 
FWARN 



a- 

23- 

14- 

31- 

42- 

42- 

31- 

7- 

30- 

32- 

38- 

43- 

14- 

31- 

1- 

1~ 

1- 

1- 

1- 

1- 

1- 

1- 

1- 

1- 

1- 

1 

1- 

■* - 
I 

1- 
32" 
37- 
46- 
1- 
1- 
1- 
1" 
1- 
1- 
1- 
1- 
1- 
1- 
1- 
1- 
1- 
3- 

^ _ 

in 

■^" 

6- 

3' 

18- 

26- 

33- 

38- 

3- 

3- 



-91 

-16 

-32 

-54 

-147 

-21 

-23 

■■33 

-27 

-26 

-40 

-16 
-27 
-20tt 
~16# 

~ia# 

-16# 
-19# 

-i6# 

-21# 
-21# 
-22# 

-19# 
-22# 

•22# 

•20# 

■20# 

•10 

■39 

■28 
1 7# 

■22# 

■ 1 7# 
■i8# 

1 8# 
■22# 
•19# 
•16# 
•16# 
• 1 7# 
■17# 

■ 1 7# 
■21# 
■47# 
-1 ■/ 
■41 
■13 
■15# 
■57 
■16 
■16 
•41 
■4# 
•23# 



8-63 
31 -IS 
14-24 
31-32 
42~;>'^f 
42-147 
31-38 

7-27 
31-1 8 
32-33 
38-28 
43-42 
14-24 
31 --32 
31-21 
14-16 
31-11 

8-63 

14-37 
31-18 

23-91 

43-48 



38-11 
7-23 
32-12 
37-41 
46-;<3 



31-32 



7-28 
32-27 
42-191 
31-27 

5-6 

5-18 

5-40 
6-14 

S-70 
18-nB 
26-33 
33-4;./ 
39- no 
11-59 
24- 1^* 



8-63 
31-27 
14-37 
31-32 
42-54 
42-191 
31-39 

7-50 
31-20 
32-35 
42-47 
43-44 
14-37 
31-34 
31-38 
14-24 



42-47 

7-27 

32-16 

37-49 



42-54 



46-34 
42-91 

31-34 

5-7 

5-19 

5-49 

6-15 

8-97 

18-99 

26-44 

34-19 

40-50 

1 1 69 

33-34 



31-11 
31-32 
23-91 
31-32 
42-54 



38 

11- 

31- 

32- 

42- 

46- 

42" 

42- 

31- 



13 
•71 

•27 
39 
■54 

191 

54 
39 



42-120 



31-11 
31-34 
23-91 
31-34 
42-113 

42-148 

12- -53 

31-32 

32-41 

42-86 

46-28 



42- 
38- 



120 
13 



42-113 




7-50 


11 


32-20 


32 


38-26 


38 



■71 



28 



31-11 
38-11 
31-18 

3 1 -34 
42-113 



14-16 
31-34 
32-42 
42-89 
46-33 

42-147 
42-148 



12-53 
32-33 
42-86 



43-48 
42-47 
31-18 
31 ■■-34 
42-120 



14-24 
32-6 
33-99 
42-91 



22-50 
32-35 
42-89 



42-147 








5 8 


5 9 


5-10 


S^-ll 


5-20 


5-21 


5-22 


5 23 


5-56 


5-57 


5-64 


6-7 


6-16 


6-17 






11-22 


1 1 -63 


11-66 


1 2-8 


19-19 


22-21 


22-28 


2^f-8 


26-56 


28-30 


28-42 


28-55 


34-37 


35-9 


35-17 


35-11 


45 29 








12-51 


14 30 


14-42 


22 •48 


33-114 


33-140 


35-102 





43-48 
42-54 
31-18 
31-34 
42-120 



14-37 
32-10 
33-107 
42-113 



5- 


■12 


5- 


■30 


6- 


-8 


12- 


-26 


23- 


-15 


29- 


-43 



37-8 



24-17 



43-48 

42-113 

31-27 

38-11 

42-120 



22-50 
32-12 
37-39 
42-115 



25-54 


28-47 


32-39 


32-41 


42-115 


43-40 



5 


-13 


5- 


-31 


6- 


-9 


12^ 


"57 


23 


-36 


29- 


-65 


37- 


-19 



43~4S 

42-120 

31-27 

38-11 

42-120 



23-91 
32-16 
37-41 
42-120 



30-33 
32-42 
43-42 



28-44 



5-14 
5-38 
6-10 

13-46 
23-50 
29-66 
37-25 

42-52 



42-147 
31-27 
42-47 
42-147 



25-54 
32-20 
37-49 
42-147 



31-20 
33-99 
43-44 



5-15 
5-39 
6-11 

15-27 
23-82 
30-24 
38-33 



31-27 
42-47 
42-147 



28-47 
32-22 
38-11 
42-191 



32-6 

33-107 

46-23 



5-16 
5-40 
6-12 

17-10 
25-24 
31-8 
38-37 
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TBLDEF 


3-35# 


5-n 


5-29 


5-37 


5- -47 


5- 


!->5 


5 -63 


6-6 


TBLEND 


3-6 !# 


5--;'4 


5-32 


5-42 


5-50 


5- 


bB 


5-65 


6-:l8 



